请教高手,用LISP如何能求得LWPOLYLINE和POLYLINE求面积和长度??
另外,可有更简单的方法吗,比如;从CAD 中直接取得LWPOLYLINE和POLYLINE的面积和长度;(用LIST命令可显示他们的面积和长度信息,但是没有办法得到),请高手指教,谢谢!
在线等待,有算法或代码可发到我的信箱,chenlin20060513@163.com,谢谢!
2010年09月 存档
请教高手,LWPOLYLINE和POLYLINE求面积和长度??
2010年09月30日，星期四粘贴的时候对象离光标很远？
2010年09月30日，星期四我是在三维空间进行提取轮廓线操作，然后剪切轮廓线，粘贴的时候发现轮廓线离光标很远啊，请问大虾有没有解决的办法呢，谢谢了啊
热 获取多义线上的所有顶点
2010年09月30日，星期四(defun C:getp (/ ent PLTYPE obj tx txlst n ptlst)
(l-load-com)
(setq ent (entsel “n选取多线:n”))
(if ent
(progn
(setq PLTYPE (cdr (assoc 0 (entget (car ent)))))
(if (or (= “POLYLINE” PLTYPE) (= “LWPOLYLINE” PLTYPE))
(progn
(setq obj (lax-ename->la-object (car ent)))
(setq tx (la-get-Coordinates obj))
(setq txlst (lax-safearray->list (lax-ariant-alue tx)))
(setq n 0)
(setq ptlst nil)
(repeat (/ (length txlst) 2)
(setq ptlst (append ptlst (list (list (nth n txlst) (nth (1+ n) txlst)))))
(setq n (+ n 2))
)
(if ptlst ptlst nil)
)
(prompt “n选取实体不是多义线!”)
);if
)
);if
)
旋转文字后角度不变的lsp
2010年09月30日，星期四我们在用rotate时文字的角度也会跟着改变，能不能写个lsp让旋转时文字的角度不变，重要的一点文字是以自身中心角度不变的。
如何获得当前用户座标系
2010年09月30日，星期四请问用LISP如何获得当前用户座标系
自定义的CAD工具栏图标太小了?
2010年09月30日，星期四怎么使自定义的CAD工具栏图标能调大点呢?好象默认是32象素不能调高吗?还有一个工具栏只能调用一个命令吗?能调用多个LISP命令怎么调用?
如何用反应器禁止对某些实体进行编辑？
2010年09月30日，星期四如何用反应器禁止对某些实体进行编辑？
包括moe,copy,del,等。
想做个签名懒得签字，但又不想给别人乱用签名。
想法是和工程名称时间等关联在一起，禁止他人在未授权的情况下随意编辑。
有能实现此功能的lsp程序么？
2010年09月30日，星期四选择两条直线后会做出如图示的小短线。
目的是方便标注（选择角点标注）
注：虽然acadm2006有捕捉虚拟交点的功能，
但由于需要检查图纸，要求做出如图示的图形。
如果没有的话，哪位大虾能帮忙编一下么。
菜鸟求调试！
2010年09月30日，星期四以下是我自己写的entmake测试，不知道为什么，增加属性后就不能做成块了，不增加属性就能成块。请帮忙看下，我要做的是一个属性块。
(后面的注释是我自己的理解)
同事用天正画的图，很多图元看不到，请教
2010年09月30日，星期四就不想装天正，这里牛人多，请教。
谢谢！
