13,14版本能用的entlast命令到04，,08版本就不行了，怎么办

bqtbqt38

lsp程序在13,14版本运行没有问题，在04,08 版本时，运行到以下段落圆角命令，就会提示我“请选择二位线段”，明显是entlast失效了，请问怎么解决这个问题

节选此段程序如下
        (if                                                                  ;;;绘制小槽钢
                (< (+ ri rj) 6)
                (progn  
                        (setq pcgx3 (polar ps12 pi 65))       
                        (setq pcgx4 (polar pcgx3 (/ pi 2) (/ 8.5 1.5)))
                        (setq pcgx5 (polar pcgx4 (/ (* 7 pi) 180) (- 65 8.5)))
                        (setq pcgx7 (polar ps6 (* pi 1.5) (/ 8.5 1.5)))
                        (setq pcgx6 (polar pcgx7 (- 0 (/ (* 7 pi) 180)) (- 65 8.5)))
                        (command "pline" pcgx3 pcgx4 pcgx5 pcgx6 pcgx7 ps6 "")
                        (command "fillet" "p" "r" (/ 8.5 2) (entlast) "")       
                        (command "mirror" (entlast) "" pym1 pym2 "")
                )
                (progn
                        (setq pcgx3 (polar ps12 pi 80))       
                        (setq pcgx4 (polar pcgx3 (/ pi 2) (/ 9 1.5)))
                        (setq pcgx5 (polar pcgx4 (/ (* 7 pi) 180) (- 80 9)))
                        (setq pcgx7 (polar ps6 (* pi 1.5) (/ 9 1.5)))
                        (setq pcgx6 (polar pcgx7 (- 0 (/ (* 7 pi) 180)) (- 80 9)))
                        (command "pline" pcgx3 pcgx4 pcgx5 pcgx6 pcgx7 ps6 "")
                        (command "fillet" "p" "r" (/ 9 2) (entlast) "")       
                        (command "mirror" (entlast) "" pym1 pym2 "")
                )
        )

Lispboy

fillet 都没进去吗？

bqtbqt38

Lispboy 发表于 2016-6-12 11:27
fillet 都没进去吗？

f命令是可以的，到选择对象的时候就停了

Lispboy

bqtbqt38 发表于 2016-6-12 11:36
f命令是可以的，到选择对象的时候就停了

选择对象在LISP里面不用只给点，要给 (entsel)返回的格式，(实体 点）替换你的(entlast)试试。

bqtbqt38

Lispboy 发表于 2016-6-12 11:37
选择对象在LISP里面不用只给点，要给 (entsel)返回的格式，(实体 点）替换你的(entlast)试试。

设备中使用的槽钢数量比较多，为了这个命令要一个一个去选点，挺麻烦的，我主要是考虑程序的流畅性

newer

bqtbqt38 发表于 2016-6-12 11:48
设备中使用的槽钢数量比较多，为了这个命令要一个一个去选点，挺麻烦的，我主要是考虑程序的流畅性

不是让你交互去选点，是你计算出来一个点和entlast组成entsel格式，这个点可以是你选的那条线上的任意点。你既然能FILLET了，那么那个点是很容易计算出来的。

bqtbqt38

newer 发表于 2016-6-12 11:50
不是让你交互去选点，是你计算出来一个点和entlast组成entsel格式，这个点可以是你选的那条线上的任意点 ...

不会啊，哥，能帮改改吗，就fillet那端，之前没用过entlsel这个结构，谢谢

bqtbqt38

newer 发表于 2016-6-12 11:50
不是让你交互去选点，是你计算出来一个点和entlast组成entsel格式，这个点可以是你选的那条线上的任意点 ...

你想表达的是这个意思吗

                (progn  
                        (setq pcgx3 (polar ps12 pi 65))        
                        (setq pcgx4 (polar pcgx3 (/ pi 2) (/ 8.5 1.5)))
                        (setq pcgx5 (polar pcgx4 (/ (* 7 pi) 180) (- 65 8.5)))
                        (setq pcgxm45 (polar pcgx4 (angle pcgx4 pcgx5) (/ (distance pcgx4 pcgx5) 2)))                       
                        (setq pcgx7 (polar ps6 (* pi 1.5) (/ 8.5 1.5)))
                        (setq pcgx6 (polar pcgx7 (- 0 (/ (* 7 pi) 180)) (- 65 8.5)))
                        (command "pline" pcgx3 pcgx4 pcgx5 pcgx6 pcgx7 ps6 "")
                        (command "fillet" "p" "r" (/ 8.5 2) (entlast pcgxm45) "")        ;;;由(entlast pcgxm45)组成(entsel)对吧
                        (command "mirror" (entlast) "" pym1 pym2 "")
                )

Lispboy

你这样 (entlast pcgxm45)  肯定错了，LISP要求左括号后面第一个是函数，仅就这个来说，应该是(list (entlast) pcgxm45), ，没仔细看代码，pcgxm45是在线上的点吗？

bqtbqt38

解决了，因为08,04版本低，圆角半径要脱离fillet单独设置。用（setvar “filletrad” r）

bqtbqt38

Lispboy 发表于 2016-6-12 14:05
你这样 (entlast pcgxm45)  肯定错了，LISP要求左括号后面第一个是函数，仅就这个来说，应该是(list (entla ...

确实是中点的，现在已经解决了，entlast能正确选取上一次操作的单位，问题在08，04版本fillet不能直接设置半径，要单独setvar filletrad 半径，就行