如何在CAD快速标注pline线

发布网友

我来回答

3个回答

热心网友

在楼上基础上改的

(DEFUN c:test (/ dxf-entname2 entname1 entname2 len)
(setq oldluprec (getvar "luprec"))
(setvar "LUPREC" 2)

(SETQ ent1 (ENTSEL "\\n选择Pline;")
entname1 (CAR ent1)
pt1 (CADR ent1)
dxfentname1 (ENTGET entname1)
spt (CDR (ASSOC 10 dxfentname1))
ept (CDR (ASSOC 10 (REVERSE dxfentname1)))
)
(SETQ entname2 (ENTLAST))
(COMMAND "lengthen" entname1 "")
(SETQ len (GETVAR "perimeter"))

(setq len (strcat "清地表长度:" (rtos len)))
(setvar "LUPREC" oldluprec)

(VL-CMDF "LEADER" pt1 pause "" "" "" len "")
(PRINC "\\n完成:")
(PRINC)
)

qq:95786236

热心网友

;;请试一下这个程序
;;我只是更改了显示方式,算法上没检查对不对,需要你自己测试
(DEFUN c:test (/ dxf-entname2 entname1 entname2 len)
(SETQ ent1 (ENTSEL "\\n选择Pline;")
entname1 (CAR ent1)
pt1 (CADR ent1)
dxfentname1 (ENTGET entname1)
spt (CDR (ASSOC 10 dxfentname1))
ept (CDR (ASSOC 10 (REVERSE dxfentname1)))
)
;;(COMMAND ".DIMALIGNED" spt ept pause)
(SETQ entname2 (ENTLAST))
(COMMAND "lengthen" entname1 "")
(SETQ len (GETVAR "perimeter"))
(VL-CMDF "LEADER" pt1 pause "" "" "" len "")
(PRINC "\\n完成:")
(PRINC)
)

热心网友

修改标注样式
主单位的精度改为0.00就行了
最后的问题只要标注时按 T 文字,然后输入清地表长度=XX.XX m

热心网友

在楼上基础上改的

(DEFUN c:test (/ dxf-entname2 entname1 entname2 len)
(setq oldluprec (getvar "luprec"))
(setvar "LUPREC" 2)

(SETQ ent1 (ENTSEL "\\n选择Pline;")
entname1 (CAR ent1)
pt1 (CADR ent1)
dxfentname1 (ENTGET entname1)
spt (CDR (ASSOC 10 dxfentname1))
ept (CDR (ASSOC 10 (REVERSE dxfentname1)))
)
(SETQ entname2 (ENTLAST))
(COMMAND "lengthen" entname1 "")
(SETQ len (GETVAR "perimeter"))

(setq len (strcat "清地表长度:" (rtos len)))
(setvar "LUPREC" oldluprec)

(VL-CMDF "LEADER" pt1 pause "" "" "" len "")
(PRINC "\\n完成:")
(PRINC)
)

qq:95786236

热心网友

;;请试一下这个程序
;;我只是更改了显示方式,算法上没检查对不对,需要你自己测试
(DEFUN c:test (/ dxf-entname2 entname1 entname2 len)
(SETQ ent1 (ENTSEL "\\n选择Pline;")
entname1 (CAR ent1)
pt1 (CADR ent1)
dxfentname1 (ENTGET entname1)
spt (CDR (ASSOC 10 dxfentname1))
ept (CDR (ASSOC 10 (REVERSE dxfentname1)))
)
;;(COMMAND ".DIMALIGNED" spt ept pause)
(SETQ entname2 (ENTLAST))
(COMMAND "lengthen" entname1 "")
(SETQ len (GETVAR "perimeter"))
(VL-CMDF "LEADER" pt1 pause "" "" "" len "")
(PRINC "\\n完成:")
(PRINC)
)

热心网友

修改标注样式
主单位的精度改为0.00就行了
最后的问题只要标注时按 T 文字,然后输入清地表长度=XX.XX m

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com