读横纵断面数据自动绘图

王鹏_pBZlo

Trouble12138 发表于 2020-1-8 15:18
单根多段线偏移变封闭多段线轮廓那个tt.fas文件加载成功后，输入tt无效，怎么回事

原先发在哪里的?

Trouble12138

王鹏_pBZlo 发表于 2020-1-8 16:17
原先发在哪里的?

http://bbs.xdcad.net/forum.php?m ... p;page=1#pid3709170
回复没有提示  没看到  不好意思

Trouble12138

王鹏_pBZlo 发表于 2020-1-8 16:17
原先发在哪里的?

这个论坛回复的文字很小，没注意到  不好意思
http://bbs.xdcad.net/forum.php?m ... p;page=1#pid3709170

Trouble12138

王鹏_pBZlo 发表于 2020-1-8 16:17
原先发在哪里的?

                               
登录/注册后可看大图

就是这个功能  

王鹏_pBZlo

Trouble12138 发表于 2020-1-8 15:20
单根多段线偏移变封闭多段线轮廓那个tt.fas文件，可否再发一下？急求，在线等

找不到了,重写一下
(defun c:tt( / py ent ent1 ent2 p0 p1 p2 p3 p4 )
        (setvar "peditaccept" 1)
        (setq py (getreal "\n指定偏移距离:"))
        (while        (setq ent (car (entsel "\n选择要偏移的对象:")))
                (setq p0 (getpoint "\n选择偏移侧的一点:"))
                (command "offset" py ent p0 "")
                (command "pedit" (entlast) "")
                (setq ent1 (entlast))
                (setq p1 (vLax-Curve-getStartPoint ent))
                (setq p2 (vLax-Curve-getEndPoint ent))
                (setq p3 (vLax-Curve-getStartPoint ent1))
                (setq p4 (vLax-Curve-getEndPoint ent1))
                (if (< (distance p4 p1) (distance p3 p1)) (setq p0 p3 p3 p4 p4 p0))
                (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p3))) (setq ent2 (entlast))
                (entmake (list (cons 0 "LINE") (cons 10 p2) (cons 11 p4)))
                (command "pedit" ent1 "j" ent2 ent (entlast) "" "")
        )
        (princ)
)

Trouble12138

太谢谢了  太热心了  太感谢

Trouble12138

我这边用不行  不知道你那边能不能用？输出偏离距离后，提示选择偏移侧的一点，点的时候没有反应

王鹏_pBZlo

Trouble12138 发表于 2020-1-9 08:40
我这边用不行  不知道你那边能不能用？输出偏离距离后，提示选择偏移侧的一点，点的时候没有反应

没有问题啊

音河之声

感谢楼主分享

Trouble12138

王鹏_pBZlo 发表于 2020-1-9 11:35
没有问题啊

哦哦  好的  我操作有误，先选择对象了。能不能改为先选择对象 然后能够批量操作的？

王鹏_pBZlo

Trouble12138 发表于 2020-1-9 12:46
哦哦  好的  我操作有误，先选择对象了。能不能改为先选择对象 然后能够批量操作的？

你选择了多个对象每个对象偏移方向都是一样的？

Trouble12138

王鹏_pBZlo 发表于 2020-1-9 14:39
你选择了多个对象每个对象偏移方向都是一样的？

是的  偏移方向一致

王鹏_pBZlo

Trouble12138 发表于 2020-1-9 14:51
是的  偏移方向一致

(defun c:tt( / py ent ent1 ent2 p0 p1 p2 p3 p4 )
        (setvar "peditaccept" 1)
        (setq py (getreal "\n指定偏移距离:"))
        (setq ss (ssget))
                (setq p5 (getpoint "\n选择偏移侧的一点:"))          (setq i -1)
     (while (setq ent (ssname ss (setq i (1+ i))))
                (command "offset" py ent p5 "")
                (command "pedit" (entlast) "")
                (setq ent1 (entlast))
                (setq p1 (vLax-Curve-getStartPoint ent))
                (setq p2 (vLax-Curve-getEndPoint ent))
                (setq p3 (vLax-Curve-getStartPoint ent1))
                (setq p4 (vLax-Curve-getEndPoint ent1))
                (if (< (distance p4 p1) (distance p3 p1)) (setq p0 p3 p3 p4 p4 p0))
                (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p3))) (setq ent2 (entlast))
                (entmake (list (cons 0 "LINE") (cons 10 p2) (cons 11 p4)))
                (command "pedit" ent1 "j" ent2 ent (entlast) "" "")
        )
        (princ)
)

Trouble12138

王鹏_pBZlo 发表于 2020-1-9 15:01
(defun c:tt( / py ent ent1 ent2 p0 p1 p2 p3 p4 )
        (setvar "peditaccept" 1)
        (set ...

这个运行会出错  就是选择偏移侧一点的时候提示参数类型错误

王鹏_pBZlo

Trouble12138 发表于 2020-1-9 16:42
这个运行会出错  就是选择偏移侧一点的时候提示参数类型错误

漏了一句，已经加上