发布网友
共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