在工程平面中绘制图形的时候,经常要使一条线高程为0,很多CAD图块图形线条可能不在一个平面上,导致CAD操作不便,如倒角、修剪等常用命令

1、新建txt文档

2、输入下面的代码:

复制内容到剪贴板

  1. (defun C:Z=0 ( / SS1)    
  2.   
  3. (setvar "cmdecho" 0)   
  4.   
  5. (if (setq SS1 (ssget))   
  6.   
  7. (progn   
  8.   
  9. (command ".undo" "be")   
  10.   
  11. (princ "n正在处理图形数据,请稍候...")   
  12.   
  13. (terpri)   
  14.   
  15. (command ".ucs" "w")   
  16.   
  17. (command ".move" SS1 "" ‘(0 0 1e99) "" ".move" "p" "" ‘(0 0 -1e99) "")   
  18.   
  19. (princ "nOK,已将所选图元Z坐标值全部归零。")   
  20.   
  21. (command ".undo" "e")   
  22.   
  23. );end progn   
  24.   
  25. );end (if (/= SS1 nil)   
  26.   
  27. (princ)   
  28.   
  29. );end (defun C:Z=0 ( / SS1)  

3、保存文档,并将后缀名改为.lsp   

看不见后缀名的,请打开任意一个文件夹,到菜单里的“工具”-“文件夹选项”里,点击“查看”标签,把“隐藏已知文件类型的扩展名”前面的勾取消,这样你打开任何文件夹都可以看到扩展名。当然,如果只是想知道某个文件的扩展名如何,就右键点击该文件,选择“属性”,就可看到

4。在CAD中的工具——加载应用程序 里面加载好这个lsp程序后。在命令栏输入z=0即可运行这个程序,选中所要变换的图形或线完成即可将选中的图形设置成z=0高程

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注