[求助]自动标注程序-很有用,但各大论坛都没有的程序
本帖最后由 作者 于 2008-5-29 17:53:51 编辑 <br /><br /> 程序运行目的：<br/>输入dd1<br/>选择需要标注的矩形pline：<br/>此矩形中间由line分隔开，程序自动找出line与pline左边和下边的交点，并自动标注line与pline左边和下边的交点分开的矩形每边尺寸，如图。标注放在左边和下边。标注样式为当前样式。(矩形pline和line是垂直的,但在图中可能整体是斜的). 这个用在数控加工中，可以检查中心线是不是在模板的正中心 是个好用的功能减少出错 ZZXXQQ 发表于 2008-6-30 09:01看帖回帖是一种美德
明经论坛高手如云，版主：zfbj ，sailorcwx，ZZXXQQ 等等诸多大虾，应该可以搞出来吧？ 斑竹们都很忙的，慢慢等等 本帖最后由 作者 于 2008-6-30 14:05:49 编辑
;标注矩形 明经 ZZXXQQ 2008.6.30
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(IF (SETQ SS (SSGET '((0 . "LWPOLYLINE") (70 . 1)))) (PROGN
(COMMAND ".UNDO" "BE")
(SETVAR "OSMODE" 0)
(SETQ I 0)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET(SSNAME SS I))
I (1+ I))
(IF (= (CDR(ASSOC 90 ENT)) 4) (PROGN
(SETQ J 0 PLST (LIST))
(REPEAT (LENGTH ENT)
(IF (= (CAR (SETQ PT (NTH J ENT))) 10)
(SETQ PLST (APPEND PLST (LIST (CDR PT))))
)
(SETQ J (1+ J))
)
(SETQ PT1 (CAR PLST) PT2 (CADR PLST) PT3 (CADDR PLST) PT4 (LAST PLST))
(SETQ AN1 (ANGLE PT1 PT2) AN2 (ANGLE PT2 PT3))
(SETQ DS1 (/ (DISTANCE PT1 PT2) 2) DS2 (/ (DISTANCE PT2 PT3) 2))
(SETQ PTM12 (POLAR PT1 AN1 DS1) PTM23 (POLAR PT2 AN2 DS2))
(SETQ PTD1 (POLAR PTM12 (+ AN2 PI) DS1)
PTD2 (POLAR PTM23 AN1 DS2))
(COMMAND "DIMALIGNED" PT1 PTM12 PTD1 "DIMALIGNED" PTM12 PT2 PTD1)
(COMMAND "DIMALIGNED" PT2 PTM23 PTD2 "DIMALIGNED" PTM23 PT3 PTD2)
))
)
(COMMAND ".UNDO" "E")
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
本帖最后由 作者 于 2008-6-30 14:06:29 编辑 <br /><br /> <p><font color="#ff00ff">2002版本DIMALIGEND应为DIMALIGNED</font></p><p><font color="#ff00ff"></font></p><p><font color="#ff00ff"></font></p><p><font color="#ff00ff"></font></p> 明经论坛高手如云 有这样的东西? <p>有这样的好东西</p><p> </p> tyurturt 本帖最后由 作者 于 2008-10-21 20:55:58 编辑
我来上传,楼主要的就是建筑结构中的柱标注程序是吧。