spp_wall 发表于 2013-1-8 08:33:09

求一块平行于直线、多段线、曲线的lsp

本帖最后由 spp_wall 于 2013-10-9 21:46 编辑

    如题   做标志标线的时候需要布标线平行于车道线 最好能做到块标线的中心在2个车道线的中间

    基本都是手动旋转 又费时间又不美观

    求高手写个程序 解决下这个问题 钱不多谢谢！

wy92160410 发表于 2022-5-20 17:25:05

支持 支持 支持 支持

spp_wall 发表于 2013-1-8 12:02:12

没人么？？？？？？？？？？？？

spp_wall 发表于 2013-1-8 17:50:14

本帖最后由 spp_wall 于 2013-1-8 17:50 编辑

是无法实现么？

004 发表于 2013-1-8 18:14:39

等你的同行给你解决吧.

yjr111 发表于 2013-1-8 19:03:02

http://bbs.mjtd.com/thread-89922-1-1.html

spp_wall 发表于 2013-1-9 08:30:31

yjr111 发表于 2013-1-8 19:03 static/image/common/back.gif
http://bbs.mjtd.com/thread-89922-1-1.html

这个只能对文字有效果 对块没效果

spp_wall 发表于 2013-10-7 16:25:14

阿斯顿！！！！！！

xyp1964 发表于 2013-10-7 18:30:35

本帖最后由 xyp1964 于 2013-10-8 22:52 编辑


;; 块线平行
(defun c:test1374 (/ i ss s1 pt)
(xyp-CMDLA0)
(while (and (setq s0 (car (entsel "\n选择曲线: ")))
              (setq ss (ssget '((0 . "insert"))))
       )
    (setq i -1)
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p1        (xyp-DXF 10 s2)
          p2        (vlax-curve-getclosestpointto s0 p1)
          rad        (xyp-Get-AngleAtPoint s0 p2)
          rad        (- rad (* pi 0.5))
      )
      (xyp-SubUpd s1 50 rad)
    )
)
(xyp-CMDLA1)
)

清风明月名字 发表于 2013-10-8 07:36:10

谢谢8楼主代码分享！

spp_wall 发表于 2013-10-8 08:52:50

谢谢校长这是是要装e派才能用么
页: [1] 2
查看完整版本: 求一块平行于直线、多段线、曲线的lsp