[LISP]怎样编写一个自动标注由多条pl线合并成一条pl线的长度的程序？

tianyuan · 发表于 2006-1-18 09:15:00

请教各位编程的老师们，自动标注只能实现标注一条pl线的长度，如果用pe命令将多条pl线进行连接为一整条，该怎样才能实现总体长度的标注？（小数要保留2位）

BDYCAD · 发表于 2006-1-18 10:49:00

刚写出来的, 不难, 没有测试过, 看看

(defun c:test(/)
(setq entname1(car (entsel "选pl;" ))
      entname2(car (entsel "选标注;" )))
(setq vlax-entname2(vlax-ename->vla-object entname2)
      dxf-entname2(entget entname2)
      len (vla-get-length (vlax-ename->vla-object entname1))
      dxf-entname2(subst(cons 1 (rtos len 2 2))(assoc 1 dxf-entname2)dxf-entname2))
(entmod dxf-entname2)
(princ "\n完成:"))

tianyuan · 发表于 2006-1-18 12:54:00

提示错误

no function definition: VLAX-ENAME->VLA-OBJECT

tianyuan · 发表于 2006-1-18 20:31:00

敬请高手们明示！！！！！！

BDYCAD · 发表于 2006-1-19 08:28:00

在程序前先加一句

(VL-LOAD-COM)

可能你用的是2000版的CAD 或是在安装时没有完全安装

tianyuan · 发表于 2006-1-19 10:52:00

还是不行。会有如下提示：

命令：test

选pl;选标注；；错误：参数类型错误：lentityp nil

命令：

BDYCAD · 发表于 2006-1-19 11:27:00

那要换原始一点的写法了

(defun c:test(/ DXF-ENTNAME2 ENTNAME1 ENTNAME2 LEN)
(setq entname1(car (entsel "\n选pl;" ))
      entname2(car (entsel "选标注;" )))
(command "lengthen" entname1 "")
(setq dxf-entname2(entget entname2)
      len (getvar "perimeter")
      dxf-entname2(subst(cons 1 (rtos len 2 2))(assoc 1 dxf-entname2)dxf-entname2))
(entmod dxf-entname2)
(princ "\n完成:")
(princ))

tianyuan · 发表于 2006-1-19 16:25:00

那么怎样才能将长度标注在图形中？眼下的程序只能将长度显示在命令行中！！！！

zhongguola · 发表于 2006-1-20 09:46:00

或许改用text

lisa0314 · 发表于 2006-1-20 11:27:00

还是不行,显示:参数类型错误: numberp: nil

账号		自动登录	找回密码
密码			注册