[讨论]：为什么没人里我呢？难道这里没有高手么？

coldhope

有一个小要求：就是小妹用的是cad2002，在工作中我总是会重复同一个工作：把一个图里的许多圆分割成各自独立的半圆，就是看着是一个类似polyline的完整的圆，可实际上是两个半圆组成的一个整圆，要是那位好心的大侠能帮我做个命令，一下就往成这个工作就好了！！！！

有没有什么命令能把所有图层打开或关闭，冻结或解冻  


*-*a

eachy

最初由 coldhope 发布
[B]有一个小要求：就是小妹用的是cad2002，在工作中我总是会重复同一个工作：把一个图里的许多圆分割成各自独立的半圆，就是看着是一个类似polyline的完整的圆，可实际上是两个半圆组成的一个整圆，要是那位好心的大侠?.. [/B]

[program]
(defun list->VariantArray (lst varType)
  (vlax-make-variant
    (vlax-safearray-fill
      (vlax-make-safearray varType (cons 0 (1- (length lst))))
      (mapcar
        '(lambda (x)
           (cond ((= (type x) 'list)
                  (vlax-safearray-fill
                    (vlax-make-safearray
                      (if (apply '= (mapcar 'type x))
                        (cond ((= (type (car x)) 'REAL) vlax-vbDouble)
                              ((= (type (car x)) 'INT) vlax-vbInteger)
                              ((= (type (car x)) 'STR) vlax-vbString)
                        )
                        vlax-vbVariant
                      )
                      (cons 0 (1- (length x)))
                    )
                    x
                  )
                 )
                 ((= (type x) 'ename)
                  (vlax-ename->vla-object x)
                 )
                 (t x)
           )
         )
        lst
      )
    )
  )
)
(defun c:CtoPl (/ ss thisdrawing modelspace r sp cp plt pl p)
  (if (setq ss (ssget '((0 . "circle"))))
    (progn
      (setq thisdrawing        (vla-get-activedocument (vlax-get-acad-object))
            modelspace        (vla-get-modelspace thisdrawing)
      )
      (vlax-for        i (vla-get-activeselectionset thisdrawing)
        (setq r          (vla-get-radius i)
              sp  (vlax-curve-getstartpoint i)
              cp  (vlax-safearray->list
                    (vlax-variant-value (vla-get-center i))
                  )
              p          (polar cp (angle sp cp) r)
              plt (list (car p) (cadr p) (car sp) (cadr sp))
        )
        (setq pl (vla-AddLightweightPolyline
                   modelspace
                   (list->VariantArray plt vlax-vbdouble)
                 )
        )
        (vla-delete i)
        (vla-put-closed pl :vlax-TRUE)
        (vla-setbulge pl 0 1.)
        (vla-setbulge pl 1 1.)       
      )
    )
  )
  (princ)
)
[/program]

hisum

（上面这个  flash 日历不错）
一楼的，你想把所有层冻结可以用命令行模式运行 如： - layer   F   *
就可以了，命令前加减号是强制命令以命令行方式运行，*号代表所有层

coldhope

我要试一试了，又不明白的还要来请教大侠


我不知道如何使用阿，我试着存为LSP文件，然后LOAD该文件，用CTOPL命令，可是没反应阿，整圆没变成两个半圆阿，求教斑竹，能教教我吗？万分感谢！！非常着急*-*5

阿---我的CAD快捷命令曾经改过，如：XL---改为F
会不会跟者有关阿，对不起，给您添麻烦了！！1