[建议]：建议可否将“CAD”的填充内直接放到“PUB_HATCH”图层？

andyhua5240

赞成，最好是能开放下源码，方便有些用户可以将CAD命令的选项集成，我想这么个小工具，开放点源码应该问题不大哈？
呵呵！

Qun

LISP程序其实就是源码，不过你得到了也没有用；因为它们需要核心函数库的支持。

andyhua5240

我的意思是，如果理正想加入这个功能的话，也是非常的赞成的。最好是可以监视如：
(defun c:c()
(command "copy")
)

里面的COMMAND命令，因为就我所知，我周围很多人的简化命令是用LISP来定义的，而不一定是PGP文件。我也经常将要合并的参数一起集成到LISP中。

呵呵！

Qun

简化命令不是这样加的，是在ACAD.PGP文件里面定义的；但在理正建筑的环境里面最好在【初始设置】里面加，否则在重新安装理正的时候会被覆盖掉。

小毛草

不知到这个功能QUN兄弟有无改进？进展如何？

Qun

“将特定命令画的内容放到特定层”这种用法，我了解了一下，好像只有填充可能会有这种需求。画填充之前改一下当前层应该也不算麻烦，后改层也容易。所以暂时不准备做这项工作。

秋枫

提供一个简易方法：
命令 BH

(defun c:bh()
  (setvar "clayer" "SOLID_HATCH")
  (command "bhatch")
)

小毛草

这个功能现在可以不出都无所谓了，我用GWW的东东，比较稳定及好用！不过秋枫兄弟的命令亦好用！多谢了！

tangyu

当前层是任意层时，如何在用完标注或填充命令后返回到当前层？
(defun c:df()
  (princ "水平标注")
(setq clname (getvar "clayer"))
(command "dimstyle" "r" "normal")
(command ".layer" "m" "PUB_DIM" "c" "green" "" "" "dim" "hor")
(setvar "clayer" clname)
  )
上面的命令不能返回当前层，中间加pause也没用。

小毛草

GWW的会返回当前层，如果不返回当前层这个程序就无什么意义了！

秋枫

最后加一个 layerp 命令试试。

tangyu

谢谢Qun和秋枫，我再研究一下，说不定就成功了。