求救！请快回应，我在等！

zgglgg7722

斑竹和各位大侠，请教： 我的2次开发的程序：
(command "vpoint" '(1 1 1))
(command "ucs" "n" "z" 90)
(command "ucs" "n" "x" 90)
(command "polygon" 6 '(0 0 0) "i" 12)
(setq s (ssget '(12 0 0)))
(command "extrude" s "" -10 "")
(command "cylinder" '(0 0 -10) 8 -80)
(setq z (ssget "l"))
(setq r (ssget '(12 0 0)))
(command "union" r z "")
(command "tilemode" 0)
(setq s (ssget "c" '(0 0) '(1189 841)))
(command "erase" s "")
(command "vports" "4" "")
(command "mspace")
(command "cvport" 4)
(command "psvpscale" 1)
(command "vpoint" '(0 0 -1))
(command "zoom" ".9xp")
(command "cvport" 3)
(command "psvpscale" 1)
(command "vpoint" '(1 0 0))
(command "zoom" ".9xp")
(command "cvport" 5)
(command "psvpscale" 1)
(command "vpoint" '(0 1 0))
(command "zoom" ".9xp")
(command "linetype" "l" "HIDDEN" "" "")
(command "layer" "M" "layer1" "")
(command "cvport" 3)
(setq s (ssget "c" '(0 0 ) '(1189 841)))
(command "solprof" s "" "" "" "")
(command "cvport" 4)
(setq s (ssget "l"))
(setq r (ssget "c" '(0 0) '(1189 841)))
(command "solprof" s r "" "" "" "")
(command "cvport" 5)
(setq s (ssget "l"))
(setq r (ssget "c" '(0 0) '(1189 841)))
(command "solprof" s r "" "" "" "")

(command "cvport" 6)
(setq x (ssget "l"))
(setq y (ssget "c" '(0 0) '(1189 841)))
(command "solprof" x y "" "" "" ") 除了最后4句，都没问题。但加上，就出现致命错误。 请您帮忙调以下。

狮狮

[glow=255,yellow,3]最后一句多了一个双引号[/glow]

龙龙仔

这是一个很好的例子(我来明经第一个发的贴子就是有关solprof的宏)

zgglgg7722你要是能不求人”完成---如附件(fig_out.vlx)那样简单的功能”,我会给你积分。

那样简单的功能(条件)

1. 图中有4个layouts(每个layout中有4个viewports)---目的只是希望图中有很多viewport而己。

2. 在模型空间 or 图纸空间执行命令皆可

zgglgg7722

斑竹你好。


不知道你在不在，我是那天发完贴后，刚上来的。虽然问题已经解决，但心有余悸。


我最近，要帮导师作关于autocad二次开发的事，原来从没接触过，导师比我还差，只指挥，其他都不会。


我心里很乱。


想找你请教请教。


不知道你有没有时间，方便否？


QQ：4574597。乖乖


我等你！！！

zgglgg7722

那个问题解决了，先加载acsolids.arx,再把(command "solprof" s r "" "" "" "")

变为（solprof s)