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

李青松

(defun C:F ()
  (if (ssget "i")
(c:tcrb)
  (c:ff2)
))
(defun c:tcrb() (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" ""))
(defun c:ff2 () (command  "OSMODE" "4159" "ortho" "on" "line" ))

fan_zh

请看高手的解答
http://bbs.mjtd.com/thread-80809-1-1.html

总之，调用command ，易受cad环境影响导致出错

htlaser

2. (defun C:ttt (/ ss)  
   
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)
   
8. ))
   
9. (defun c:tcrb() (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" ""))
   
10. (defun c:ff2 () (command  "OSMODE" "4159" "ortho" "on" "line" ))

(defun C:ttt (/ ss)  <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)<br /> ))<br /> (defun c:tcrb() (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" ""))<br /> (defun c:ff2 () (command  "OSMODE" "4159" "ortho" "on" "line" ))

xvjiex

提示错误信息是什么？
试一下这个看看

李青松

xvjiex 发表于 2020-6-28 16:51
提示错误信息是什么？
试一下这个看看

你给的程序运行不了

李青松

xvjiex 发表于 2020-6-28 16:51
提示错误信息是什么？
试一下这个看看

提示错误信息是 命令: f
change 找到 1 个
指定修改点或 [特性(P)]:
选择对象:

李青松

htlaser 发表于 2020-6-28 16:37

2012中运行不了

htlaser

李青松 发表于 2020-6-29 11:09
2012中运行不了

我测试没有问题啊

李青松

htlaser 发表于 2020-6-29 11:21
我测试没有问题啊

可以用。当前层不要变，还要是0层。帮我改一下

李青松

htlaser 发表于 2020-6-29 11:21
我测试没有问题啊

我觉得是以下的这个程序要重新写，写成先选对象再运行程序。
(defun c:tcrb() (command "change" (ssget) "" "p"     "la" "软包" "c" "bylayer" "lt" "bylayer" ""))