【已解决】谁能帮我写一个连续画杆路和管道的小插件

小小的人 · 发表于 2020-4-17 22:17:07

本帖最后由 newer 于 2020-4-19 16:37 编辑

谁能帮我写一个能连续画杆路和管道的小程序，能做到画线时可以指定等分几段，然后在等分点自动插入指定直径的圆或者是指定长宽的矩形，圆是要直径对齐线，矩形要中线对齐线，如图所示，然后连续画第二段时就再次指定等分数量来插入对应的圆或者矩形，以此类推，不要网上已有的那个Autolisp画杆路插件，那个绘图的时候输入量太大了，哪个大神能帮帮我，不胜感激，小妹在此先行谢过

newer · 发表于 2020-4-17 22:17:08

试试

(defun c:tt ()
(if (not #xd-var-global-divide)
(setq #xd-var-global-divide 2)
)
(if (setq v (getint
(xdrx-prompt "\n等分数<" #xd-var-global-divide ">:" t)
)
)
(setq #xd-var-global-divide v)
)
(xdrx-begin)
(if (and (xdrx-initget "Y N")
(setq yn (xdrx-yesorno "\n是否全局等分" 1))
(xdrx-initssget "\n选取要插入的对象<结束>:")
(setq ss (xdrx-ssget))
(setq cen (xd::geom:get9pt ss 5))
(setq e (xdrx-entsel
(if (= yn 1)
"\n拾取路径多段线<退出>:"
"\n拾取多段线的某段<退出>:"
)
'((0 . "*polyline"))
)
)
(setq cen (trans cen 1 0)
cen1 (xdrx-curve-getclosestpoint (car e) cen))
(setq vec1 (xdrx-getpropertyvalue (car e) "firstderiv" cen1))
(setq inx (xdrx-getpropertyvalue (car e) "onsegat" (trans (cadr e) 1 0)))
(setq pts (xdrx-getpropertyvalue
(car e)
"divide"
#xd-var-global-divide
t
)
)
(if (= yn 0)
(setq pts (nth (car inx) pts))
(setq pts (xd::list:removedup (xd::list:flat-point pts)))
)
)
(progn (setq m0 (xdrx-matrix-identity 3))
(mapcar '(lambda (x)
(setq vec2 (xdrx-getpropertyvalue
(car e)
"firstderiv"
x
)
mRot (xdrx_vector_rotateTo vec1 vec2)
vT1 (mapcar '- '(0 0 0) cen1)
vT2 (mapcar '- x '(0 0 0))
mMat1 (xdrx_matrix_setTranslation m0 vT1)
mMat2 (xdrx_matrix_setTranslation m0 vT2)
mMat (xdrx_matrix_product mRot mMat1)
mMat (xdrx_matrix_product mMat2 mMat)
)
(xdrx-entity-transformedcopy ss mmat)
)
pts
)
(xdrx-entity-delete ss)
)
)
(xdrx-end)
(princ)
)

(defun c:tt () 
  (if (not #xd-var-global-divide) 
    (setq #xd-var-global-divide 2) 
  ) 
  (if (setq v (getint 
                (xdrx-prompt "\n等分数<" #xd-var-global-divide ">:" t) 
              ) 
      ) 
    (setq #xd-var-global-divide v) 
  ) 
  (xdrx-begin) 
  (if (and (xdrx-initget "Y N") 
           (setq yn (xdrx-yesorno "\n是否全局等分" 1)) 
           (xdrx-initssget "\n选取要插入的对象<结束>:") 
           (setq ss (xdrx-ssget)) 
           (setq cen (xd::geom:get9pt ss 5)) 
           (setq e (xdrx-entsel 
                     (if (= yn 1) 
                       "\n拾取路径多段线<退出>:" 
                       "\n拾取多段线的某段<退出>:" 
                     ) 
                     '((0 . "*polyline")) 
                   ) 
           ) 
           (setq cen (trans cen 1 0) 
                 cen1 (xdrx-curve-getclosestpoint (car e) cen)) 
           (setq vec1 (xdrx-getpropertyvalue (car e) "firstderiv" cen1)) 
           (setq inx (xdrx-getpropertyvalue (car e) "onsegat" (trans (cadr e) 1 0))) 
           (setq pts (xdrx-getpropertyvalue 
                       (car e) 
                       "divide" 
                       #xd-var-global-divide 
                       t 
                     ) 
           ) 
           (if (= yn 0) 
             (setq pts (nth (car inx) pts)) 
             (setq pts (xd::list:removedup (xd::list:flat-point pts))) 
           ) 
      ) 
    (progn (setq m0 (xdrx-matrix-identity 3)) 
           (mapcar '(lambda (x) 
                      (setq vec2  (xdrx-getpropertyvalue 
                                    (car e) 
                                    "firstderiv" 
                                    x 
                                  ) 
                            mRot  (xdrx_vector_rotateTo vec1 vec2) 
                            vT1          (mapcar '-  '(0 0 0)  cen1) 
                            vT2          (mapcar '- x  '(0 0 0)) 
                            mMat1 (xdrx_matrix_setTranslation m0 vT1) 
                            mMat2 (xdrx_matrix_setTranslation m0 vT2) 
                            mMat  (xdrx_matrix_product mRot mMat1) 
                            mMat  (xdrx_matrix_product mMat2 mMat) 
                      ) 
                      (xdrx-entity-transformedcopy ss mmat) 
                    ) 
                   pts 
           ) 
      (xdrx-entity-delete ss) 
    ) 
  ) 
  (xdrx-end) 
  (princ) 
)

Lisphk · 发表于 2020-4-18 12:23:53

路径阵列搜索论坛
遮罩搜索论坛

小小的人 · 发表于 2020-4-18 17:14:19

newer 发表于 2020-4-18 16:27
试试

非常感谢你的帮助我试了一下不是遮罩块的话线在插入后的图元内部没有剪切还要自己再一个一个剪切能不能在不是遮罩块的情况下自动剪切插入图元内部的线段呢图纸太大的话建的块多了会很卡

newer · 发表于 2020-4-18 17:21:12

本帖最后由 newer 于 2020-4-18 17:24 编辑

小小的人发表于 2020-4-18 17:14
非常感谢你的帮助我试了一下不是遮罩块的话线在插入后的图元内部没有剪切还要自己再一个 ...

你裁剪完，后悔了，想其他等分时候呢？难道你还要把裁剪的再一个一个的恢复画回来？
画图要有组织，你可以做成块，或者用工具箱其他工具，做成遮罩，然后去排布

newer · 发表于 2020-4-18 17:23:12

小小的人发表于 2020-4-18 17:14
非常感谢你的帮助我试了一下不是遮罩块的话线在插入后的图元内部没有剪切还要自己再一个 ...

做成块才不会卡，图纸才更少，因为块定义只有一个，你要是分散的，图纸才会更大，以后组织数据时候也更不方便，改改绘图习惯吧。用容器放你的图元对象，比如块，组

小小的人 · 发表于 2020-4-18 17:34:10

newer 发表于 2020-4-18 17:21
你裁剪完，后悔了，想其他等分时候呢？难道你还要把裁剪的再一个一个的恢复画回来？
画图要有组织，你可 ...

你说的有道理那能不能把遮罩块和路径阵列合并到一起一次命令就能执行呢

newer · 发表于 2020-4-18 17:46:54

小小的人发表于 2020-4-18 17:34
你说的有道理那能不能把遮罩块和路径阵列合并到一起一次命令就能执行呢

工具既不能大，也不能小
工具是组合用的
你把两个给合并到一起了，那么不需要做遮罩的地方怎么办呢？
这个工具是能在等分点插入你选择的任何东西，需要遮罩的，你就事先用工具做好。

小小的人 · 发表于 2020-4-18 18:17:13

newer 发表于 2020-4-18 17:46
工具既不能大，也不能小
工具是组合用的
你把两个给合并到一起了，那么不需要做遮罩的地方怎么办呢？

阵列的时候原有图元一定要在线上否则阵列后图元不在线上能不能改成不在线上也能在线上阵列

newer · 发表于 2020-4-18 18:28:37

本帖最后由 newer 于 2020-4-18 18:36 编辑

小小的人发表于 2020-4-18 18:17
阵列的时候原有图元一定要在线上否则阵列后图元不在线上能不能改成不在线上也能在线上阵列

程序考虑了垂直方向的位置关系可以不在线上。

等分非图块路径拷贝-1.gif

第一个，你事先一定要放好地方
否则程序交互，又要多很多交互内容。
把自己的工作思路理顺，什么时候该做什么，组织好。因为插入，可能有中心对齐，也可能底对齐，也可能左对齐，顶对齐等，这些别放到程序里面
自己事先移动下效率更高

kyky1002 · 发表于 2020-4-19 09:01:53

版主说的很有道理，受教了

yangjian001 · 发表于 2020-4-19 10:12:49

说的很有道理

既然青春留不住 · 发表于 2020-4-19 12:57:12

楼主辛苦啦！~~~~~~~~~~~~~~~~~

hhrt321 · 发表于 2020-7-8 19:58:18

帮顶我也在找

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

[已解决] 【已解决】谁能帮我写一个连续画杆路和管道的小插件

最佳答案

点评

评分

评分

点评

点评

点评

点评

点评