请求帮助！！！

zgglgg7722

斑竹，我的程序已调出： (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)))
(solprof s "" "" "" "")
(command "cvport" 4)
(setq s (ssget "l"))
(setq r (ssget "c" '(0 0) '(1189 841)))
(solprof s "" "" "" "")
(solprof r "" "" "" "")
(command "cvport" 5)
(setq s (ssget "l"))
(setq r (ssget "c" '(0 0) '(1189 841)))
(solprof s "" "" "" "")
(solprof r "" "" "" "") (command "cvport" 6)
(setq x (ssget "l"))
(setq y (ssget "c" '(0 0) '(1189 841)))
(solprof x "" "" "" "")
(solprof y "" "" "" "") (command "layer" "F" "0" "")
(command "pspace") 然后，我想在进行标注，您看有什么好办法，选择尺寸界限。 谢谢！！！

zgglgg7722

斑竹，为什么不给我回帖？

meflying

你给的只是一些代码，并不是一个完整的程序！