新人第四贴，请老师们完善下代码.（已解决）

rsent

(DEFUN C:sol()
(setq ss(ssget))
(setvar "TILEMODE" 0)
(command "solprof" ss "" "Y" "Y" "Y")
(setvar "TILEMODE" 1)
(command "ucs" "v")
)
先调整为：
模型空间为2个视口：主视图和西南等轴测
布局1个视口：西南等轴测

未完成部分：
删除pH-1c22图层上的2D块
选择出pv-1c22图层上的2D块
再剪切到主视图。

请大家帮帮完善下，万分感谢。！！！
没啥子要感谢的。。感谢下自己。。慢慢学习中。

newer

ssget 选择你的2D块，然后删除不就行了？你不是全选删除吗？

rsent

newer 发表于 2014-12-14 15:30
ssget 选择你的2D块，然后删除不就行了？你不是全选删除吗？

要保留一个转换好的等轴测2D图。还有复制怎么办。

newer

rsent 发表于 2014-12-14 15:35
要保留一个转换好的等轴测2D图。还有复制怎么办。

视图是视图，你不能把不存在模型空间的实体显示到视图上，所以你想那边窗口删除掉，这边还显示还保留原来实体，做不了。

rsent

newer 发表于 2014-12-14 15:43
视图是视图，你不能把不存在模型空间的实体显示到视图上，所以你想那边窗口删除掉，这边还显示还保留原来 ...

谢谢了。。。我已经复制成功了。。
没有什么不可能的。今天听了你说了很多次不可能了。= =

newer

rsent 发表于 2014-12-14 16:02
谢谢了。。。我已经复制成功了。。
没有什么不可能的。今天听了你说了很多次不可能了。= =

那就是我理解错你的问题了，或者你表达的需要改进下。

newer

代码完善了，把全部的贴出来和大家分享下吧。

rsent

newer 发表于 2014-12-14 16:04
代码完善了，把全部的贴出来和大家分享下吧。

指教下我这个新手吧。。。。 代码没完善。。就是差那么点。刚刚复制的问题是用 插入块解决的。代码还没写。在CAD里手动操作核对了。

我不知道怎么保留选择框的范围。大神，帮帮俺。

(DEFUN C:sol()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(setq s '(ssget "w" "p1" "p2"))
(command ".erase" s "")
)

newer

rsent 发表于 2014-12-14 16:10
指教下我这个新手吧。。。。 代码没完善。。就是差那么点。刚刚复制的问题是用 插入块解决的。代码还 ...

有问题最好图文并茂，看图顶过你说10句话。
P1，P2那两点不是你选择框的两顶点吗？

/db_自贡黄明儒_

rsent 发表于 2014-12-14 16:10
指教下我这个新手吧。。。。 代码没完善。。就是差那么点。刚刚复制的问题是用 插入块解决的。代码还 ...

(setq s '(ssget "w" "p1" "p2"))前面加一撇不求值，s有结果？

rsent

/db_自贡黄明儒_ 发表于 2014-12-14 16:15
(setq s '(ssget "w" "p1" "p2"))前面加一撇不求值，s有结果？

(DEFUN C:sol()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(setq s (ssget "w" "p1" "p2"))
(command ".erase" s "")
)

还是不行。。(setq s (ssget "w" "p1" "p2"))  感觉不对。。。但是不知道怎么改。(setq s (ssget "w" ' (p1) ' (p2) )) ?

/db_自贡黄明儒_

p1不加引号

newer

rsent 发表于 2014-12-14 16:22
(DEFUN C:sol()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))

变量你直接引用就行了，不用加“”， 加“”的是字符串常量，变量字符串也不用你加“”

rsent

newer 发表于 2014-12-14 16:28
变量你直接引用就行了，不用加“”， 加“”的是字符串常量，变量字符串也不用你加“”

(DEFUN C:sol()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(setq s (ssget "c" p1 p2))
(setvar "TILEMODE" 0)
(command "solprof" s "" "Y" "Y" "Y")
(setvar "TILEMODE" 1)
(command "ucs" "v")
(setq s1 (ssget "c" p1 p2 '((8 . "ph*"))))
(command ".erase" s1 "")
(setq s2 (ssget "c" p1 p2 '((8 . "pv*"))))
(command "cutclip" s2 "")
(princ)
)

版主，已经做好了。 直接到主视图 ctrl+V 复制出来就可以了。

未开始时：

未开始时：

完成后：

rsent

只是感觉不太流畅。。。选择的时候是 2个点 ，要是可以改为1个框选就好了。 不知道怎么确定框选的 2个对角点的 值。