求帮助

遢绅~^士

CASS 里面有一个命令: huan,    我想多选,然后执行.



(defun c:HU()
  (SETQ LINES (SSGET))
  (command "huan" LINES)

   )


这个是我写的,执行不了!!!

求大侠帮忙!!!

Gu_xl

请修改帖子的标题！
提问前请先仔细阅读该帖：
【提示公告】本版关于提问的一些注意事项  

陨落

呃...这个....

gzxl

huan这个命令是做什么用的？

gzxl

原来是线型换向
看这里http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16116

zyhandw

试试这个:

2. ;;;批量变换给定线型方向的程序
   
3. (defun c:plhuan ( / ss i ss-n)
   
4. (setvar "cmdecho" 0)
   
5. (setq ss (ssget (list '(0 . "polyline,lwpolyline"))))
   
6. (setq i 0)
   
7. (repeat (sslength ss)
   
8.    (setq ss-n (ssname ss i))
   
9.    (command "huan" ss-n)
   
10.    (setq i (1+ i))
    
11. )
    
12. (princ)
    
13. )

;;;批量变换给定线型方向的程序<br /> (defun c:plhuan ( / ss i ss-n)<br /> (setvar "cmdecho" 0)<br /> (setq ss (ssget (list '(0 . "polyline,lwpolyline"))))<br /> (setq i 0)<br /> (repeat (sslength ss)<br />    (setq ss-n (ssname ss i))<br />    (command "huan" ss-n)<br />    (setq i (1+ i))<br /> )<br /> (princ)<br /> )

遢绅~^士

zyhandw 发表于 2013-6-13 10:56
试试这个:

好像可以诶,谢谢!!!非常感谢!!!

zyhandw

遢绅~^士 发表于 2013-6-14 18:09
好像可以诶,谢谢!!!非常感谢!!!

呵呵，自己也学着写写吧