[求助]矩形添加洞口线

为何生

求个lisp，矩形添加洞口线。要求
1、可以框选多个矩形。
2、可以输入洞口线离左上角点的比例（比例相对矩形长短边的长度而言，比如1:10等等)
先谢过。（附件VLX好像是它山的作品，功能有点类似但不够完善，供参考)

xiabin68

你的比例是不是任意一个边的长度比就要的了，，

liuxu042

可以实现你的要求，定制的话可以联系我，qq:379539186

有123

这个小插件不错

xyp1964

2. ;; 自定义函数下载: [url=http://bbs.mjtd.com/thread-95673-1-1.html]http://bbs.mjtd.com/thread-95673-1-1.html[/url]
   
3. ;; 洞口线
   
4. ;; 伪源码需要e派工具箱(XCAD)的支持
   
5. (defun c:tt ()
   
6.   (CMDLA0)
   
7.   (xyp-MkLaCo "洞口线" 1)
   
8.   (setq int (Uint 1 "" "洞口线离左上角点的比例" int)) ;10
   
9.   (setq i -1)
   
10.   (if (setq ss (ssget '((0 . "*polyLINE"))))
    
11.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.       (setq p1 (xyp-9pt s1 1)
    
13.      p7 (xyp-9pt s1 7)
    
14.      p9 (xyp-9pt s1 9)
    
15.      p3 (xyp-9pt s1 3)
    
16.      dl (/ (distance p1 p9) int 1.)
    
17.      p7a (polar p7 (angle p7 p3) dl)
    
18.      s2 (xyp-Entmake-lwPolyline (list p1 p7a p9) nil)
    
19.       )
    
20.     )
    
21.   )
    
22.   (CMDLA1)
    
23. )

;; 自定义函数下载: [url=http://bbs.mjtd.com/thread-95673-1-1.html]http://bbs.mjtd.com/thread-95673-1-1.html[/url]<br /> ;; 洞口线<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (xyp-MkLaCo "洞口线" 1)<br />   (setq int (Uint 1 "" "洞口线离左上角点的比例" int)) ;10<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*polyLINE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p1 (xyp-9pt s1 1)<br />      p7 (xyp-9pt s1 7)<br />      p9 (xyp-9pt s1 9)<br />      p3 (xyp-9pt s1 3)<br />      dl (/ (distance p1 p9) int 1.)<br />      p7a (polar p7 (angle p7 p3) dl)<br />      s2 (xyp-Entmake-lwPolyline (list p1 p7a p9) nil)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )

jxjaxa

xyp1964 发表于 2013-2-3 09:47

求助院长xyp-9pt 函数

yaya-54

伪源码需要e派工具箱(XCAD)的支持，是哪需要哪些东西？
多义线的矩形提示：
选择对象:
; 错误: no function definition: XYP-ENTMAKE-LWPOLYLINE

线段矩形提示：
选择对象:
程序执行完毕! ; 错误: 输入中含有多余的闭括号
命令:

再次输入命令时又出现
命令: tkx
错误: 参数太多
程序执行完毕!