组合命令f 在autocad2012中运行不了,2004,2005.2006中可以运行。

htlaser

李青松 发表于 2020-6-29 11:57
我觉得是以下的这个程序要重新写，写成先选对象再运行程序。
(defun c:tcrb() (command "change" (ssget ...

(defun C:ttt (/ ss)  
          (setvar "cmdecho" 0)
  (if(= (tblsearch "layer" "软包") nil)(command "-layer" "n" "软包" "s" "软包" "")(command "-layer" "s" "软包" ""))  
(setq ss (ssget "i"))
  (if (= ss nil)
  (c:tcrb)
  (c:ff2))
         (princ))
(defun c:tcrb()
        (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" "")        (princ))
(defun c:ff2 ()  
        (setvar "CLAYER" "0") ;设置0层为当前图层
        (command  "OSMODE" "4159" "ortho" "on" "line" )
        (princ)
)

htlaser

1. (defun C:ttt (/ ss)  
   
2.     (setvar "cmdecho" 0)
   
3.   (if(= (tblsearch "layer" "软包") nil)(command "-layer" "n" "软包" "s" "软包" "")(command "-layer" "s" "软包" ""))  
   
4. (setq ss (ssget "i"))
   
5.   (if (= ss nil)
   
6.   (c:tcrb)
   
7.   (c:ff2)) (setvar "CLAYER" "0");设置0层为当前图层
   
8. (princ))
   
9. (defun c:tcrb()
   
10.   (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" "")  (princ))
    
11. (defun c:ff2 ()  
    
12.   (setvar "CLAYER" "0") ;设置0层为当前图层
    
13.   (command  "OSMODE" "4159" "ortho" "on" "line" )
    
14.   (princ)
    
15. )

(defun C:ttt (/ ss)  <br />     (setvar "cmdecho" 0)<br />   (if(= (tblsearch "layer" "软包") nil)(command "-layer" "n" "软包" "s" "软包" "")(command "-layer" "s" "软包" ""))  <br /> (setq ss (ssget "i"))<br />   (if (= ss nil)<br />   (c:tcrb)<br />   (c:ff2)) (setvar "CLAYER" "0");设置0层为当前图层<br /> (princ))<br /> (defun c:tcrb() <br />   (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" "")  (princ))<br /> (defun c:ff2 ()  <br />   (setvar "CLAYER" "0") ;设置0层为当前图层<br />   (command  "OSMODE" "4159" "ortho" "on" "line" )<br />   (princ)<br /> )

最新修改

李青松

htlaser 发表于 2020-6-29 12:14

经测试，图层还是变了。运行完后当前的图层不是0层。

李青松

htlaser 发表于 2020-6-29 12:14
最新修改

画直线的命令失效。

htlaser

李青松 发表于 2020-7-1 13:59
画直线的命令失效。

请你自己找问题    2010  2012  2020  都有测试没有问题  最按后修改的代码