请高手帮帮忙

caohong25

(vl-load-com)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq hxss (ssadd))
  (setq s (ssget '((0 . "line"))))
  (repeat (setq s1 (sslength s))
    (setq s_ent (ssname s (setq s1 (1- s1))))
    (setq ent (entget s_ent))
    (setq pt1 (cdr (assoc 10 ent))
          pt2 (cdr (assoc 11 ent))
    )
    (setq zw_s (ssget "_F" (list pt1 pt2) '((0 . "insert"))))
    (if (/= zw_s nil)
      (progn
        (repeat (setq zw_s1 (sslength zw_s))
　　　    (setq bjyxlst '() lsts 0)
          (setq zw_ent (ssname zw_s (setq zw_s1 (1- zw_s1))))
          (if (not (ssmemb zw_ent hxss))
            (progn
          (setq hxss (ssadd zw_ent hxss))
              (setq zwent (entget zw_ent))
              (setq tkm (cdr (assoc 2 zwent)))
              (setq pins (cdr (assoc 10 zwent)))
              (setq ang (cdr (assoc 50 zwent)))
              (setq zty (entget (cdr (assoc -2 (tblsearch "block" tkm)))))
              (ch_z zty pins ang)
          (setq bjyxlst (reverse bjyxlst))
          (repeat (length bjyxlst)
                (setq zbd (cdr (nth lsts bjyxlst)))
            (setq zjd (vlax-curve-getClosestPointTo s_ent zbd T))
                (if (/= (distance zbd zjd) 0)
              (command "_dimaligned" zbd zjd (polar zjd pi 1000))
            )
          (setq lsts (1+ lsts))
          )
            )
          )
        )
      )
    )
  )
  (setvar "osmode" 37)
  (setvar "cmdecho" 1)
  (princ)


这段代码是对直线上图块里的圆进行标注~为什么每个图块第一次标注时正常~~
把标注删除后~~再对该图块进行标注时确无法标注了~~也没有任何出错信息
把图纸关了重新打开又能标注了~但同一图块只能标一次~

carrot1983

         (setq bjyxlst '() lsts 0)

(ch_z zty pins ang)
          (setq bjyxlst (reverse bjyxlst))

啥意思。。。

听不懂你要干嘛？？？

caohong25

bjyxlst里面是由ch_z函数提取出来的圆心坐标~

我的意思是为什么同一个图块只能标注一次~
把标注删了~再重新标注时就没反应了~~
也没提示出错~运行完代码但不标注

把图纸关了重新打开又能标注了~~但也只能标一次~~
删了标注重标就又不行了~~

carrot1983

最好抓个图来。。。

上面的代码太乱。。。

懒的看。

把需求说清楚，重新写更快。

caohong25

怎么把电脑里的图发上来？？？

carrot1983

是不是这样子的。。。
以线选择块。。。
按你的需求，我猜测的。。。

3. ;;LINE-BLOCK-DIMALIGNED 线和块标注 By carrot1983 2009-02-13
4. (defun C:TT (/ ELIST PT SS SS1 V10 CMDECHO)
5.   ;;(CAI-SS-VALUES SS -1) By carrot1983
6.   (defun CAI-SS-VALUES (SS ITEM / I VALUES)
7.     (repeat (setq I (sslength SS))
8.       (setq
9. VALUES
10.   (cons
11.     (cdr (assoc ITEM (entget (ssname SS (setq I (1- I))))))
12.     VALUES
13.   )
14.       )
15.     )
16.     VALUES
17.   )
18.   (defun CAI-DXF (ITEM ELIST)
19.     (cdr (assoc ITEM ELIST))
20.   )
21.   (command "._UNDO" "_BEGIN")
22.   (setq CMDECHO (getvar "CMDECHO"))
23.   (setvar "CMDECHO" 0)
24.   (if (setq SS (ssget '((0 . "LINE"))))
25.     (foreach E (CAI-SS-VALUES SS -1)
26.       (if
27. (and (setq ELIST (entget E))
28.       (setq
29.         SS1 (ssget "_F"
30.      (list (CAI-DXF 10 ELIST) (CAI-DXF 11 ELIST))
31.      '((0 . "INSERT"))
32.      )
33.       )
34. )
35.   (foreach E1 (CAI-SS-VALUES SS1 -1)
36.     (setq ELIST (entget E1)
37.    V10   (CAI-DXF 10 ELIST)
38.     )
39.     (setq PT (vlax-curve-getclosestpointto E V10))
40.     (command "._DIMALIGNED"
41.       "_NONE"
42.       PT
43.       "_NONE"
44.       V10
45.       "_NONE"
46.       (polar V10 (+ (* 0.5 pi) (angle PT V10)) 1000) ;_标注尺寸界线长度1000
47.     )
48.   )
49.       )
50.     )
51.   )
52.   (setvar "CMDECHO" CMDECHO)
53.   (command "._UNDO" "_END")
54.   (princ)
55. )

;;LINE-BLOCK-DIMALIGNED 线和块标注 By carrot1983 2009-02-13 (defun C:TT (/ ELIST PT SS SS1 V10 CMDECHO)   ;;(CAI-SS-VALUES SS -1) By carrot1983   (defun CAI-SS-VALUES (SS ITEM / I VALUES)     (repeat (setq I (sslength SS))       (setq VALUES   (cons     (cdr (assoc ITEM (entget (ssname SS (setq I (1- I))))))     VALUES   )       )     )     VALUES   )   (defun CAI-DXF (ITEM ELIST)     (cdr (assoc ITEM ELIST))   )   (command "._UNDO" "_BEGIN")   (setq CMDECHO (getvar "CMDECHO"))   (setvar "CMDECHO" 0)   (if (setq SS (ssget '((0 . "LINE"))))     (foreach E (CAI-SS-VALUES SS -1)       (if (and (setq ELIST (entget E))       (setq         SS1 (ssget "_F"      (list (CAI-DXF 10 ELIST) (CAI-DXF 11 ELIST))      '((0 . "INSERT"))      )       ) )   (foreach E1 (CAI-SS-VALUES SS1 -1)     (setq ELIST (entget E1)    V10   (CAI-DXF 10 ELIST)     )     (setq PT (vlax-curve-getclosestpointto E V10))     (command "._DIMALIGNED"       "_NONE"       PT       "_NONE"       V10       "_NONE"       (polar V10 (+ (* 0.5 pi) (angle PT V10)) 1000) ;_标注尺寸界线长度1000     )   )       )     )   )   (setvar "CMDECHO" CMDECHO)   (command "._UNDO" "_END")   (princ) )

caohong25

差不多是这个意思~~

我写的也能标出来~~
可为什么把标好的尺寸删除~或撤消后~
再对那些标过的圆进行标注时却没反映了，也没见出错信息


那个动画咋发的？？？？？？？

caohong25

弄清了~~原来有个存圆心坐标的表没有设为局部变量

郁闷~~弄了半天就这原因