定距等分线段

125113733 · 发表于 2020-11-15 16:32:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:df()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "dimzin" 0)
  (vl-load-com);;加载vlax扩展函数
  (setq len (car (entsel"选择你要等分的线:")))
(setq st t)
  (while st
(while (not (setq st (entsel "\n选择等分的块："))))
            (if (= (cdr (assoc '0 (entget (car st))))"INSERT")
               (progn
               (setq blockname (cdr (assoc '2 (entget (car st)))))
               (setq st nil)
               )
               (princ"\n未选择到块!")
            )
)
(princ (strcat "\n选择的块名称为" blockname ))
(setq j1 6)
(command "MEASURE"len "b" blockname "Y" j1 )
(princ "已完成等分")
)

125113733 · 发表于 2020-11-15 16:48:53

谁给咱改一下，用代码中的块名直接就把线段定距（插件中是6）等分

Lisphk · 发表于 2020-11-15 21:39:39

看代码，并没用到VL函数
所以，程序里面
(vl-load-com);;加载vlax扩展函数
这行可以不要

jiang__jin · 发表于 2020-11-16 09:04:02

学习一下！！

松树石头哥 · 发表于 2020-11-17 13:51:10

感谢楼主分享！！！

yangjian001 · 发表于 2020-11-22 14:50:44

做一个热心并受欢迎的人

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

[图块] 定距等分线段

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。