为何生 发表于 2013-1-23 22:49:57

[求助]矩形添加洞口线

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

xiabin68 发表于 2013-1-28 00:18:36

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

liuxu042 发表于 2013-1-29 16:21:14

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

有123 发表于 2013-2-2 12:32:25

这个小插件不错

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


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

jxjaxa 发表于 2013-4-18 22:35:42

xyp1964 发表于 2013-2-3 09:47 static/image/common/back.gif


求助院长xyp-9pt 函数

yaya-54 发表于 2014-1-10 14:50:18

本帖最后由 yaya-54 于 2014-1-10 16:57 编辑

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

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

再次输入命令时又出现
命令: tkx
错误: 参数太多
程序执行完毕!
页: [1]
查看完整版本: [求助]矩形添加洞口线