为什么同一个程序在不同的图里用不了？

daixq021 · 发表于 2012-7-21 07:26:33

本帖最后由 daixq021 于 2012-7-21 07:28 编辑

用同一个文件在不同的机器上提取对比，其效果更容易找出原因。

重装CAD就太悲剧了，我的方法一定可行（CAD版本最好是一致的）。

daixq021 · 发表于 2012-7-21 12:30:55

也可能是加载路径问题或插件命令冲突，甚至包括CAD加载的样板文件不同引起。

半听可乐 · 发表于 2012-7-25 13:22:02

print1985 发表于 2012-7-17 19:44
试试这个 VL函数的

我用一个插入图块的程序复制了很多条，用来插入不同的块，但是每条程序都只有红色部分的差别，看着很冗余，你能不能也把它优化成VL函数形式的？让它简洁，类似于你在本帖中提供的Vl函数的程序

;--------------------------------
;★插入图块a
;--------------------------------
(defun c:ka()
   (setvar "cmdecho" 0)
  (WHILE(setq p1 (getpoint "\n插入点:  "))
(command "insert" "ka.dwg" p1 "1" "" "0")
(command "EXPLODE" (entlast)))
(princ)
)

;--------------------------------
;★插入图块b
;--------------------------------
(defun c:kb()
   (setvar "cmdecho" 0)
  (WHILE(setq p1 (getpoint "\n插入点:  "))
(command "insert" "kb.dwg" p1 "1" "" "0")
(command "EXPLODE" (entlast)))
(princ)
)

print1985 · 发表于 2012-7-25 20:56:58

(defun c:ka() (crtk "*ka"));图块名前加*表示插入后分解
(defun c:kb() (crtk "*kb"))
(defun crtk (tkm);插入图块子程序
(while (setq p1 (getpoint "\n插入点: "))
(command "-insert" tkm p1 "1" "0" );这句是command，不行的画自己修改下，你懂的
)
(princ)
)

用子程序+参数就行了根VL函数无关

print1985 · 发表于 2012-7-25 21:00:49

本帖最后由 print1985 于 2012-7-25 21:03 编辑

(defun c:ka() (crtk "*ka"));图块名前加*表示插入后分解
(defun c:kb() (crtk "*kb"))
(defun crtk (tkm);插入图块子程序
(while (setq p1 (getpoint "\n插入点: "))
(entmake (list '(0 . "INSERT") (cons 2 tkm) (cons 10 p1)));entmake的
)
(princ)
)

entmake的，图中已有ka和kb名字的图块才行，注意生成的是图块，没分解

半听可乐 · 发表于 2012-7-25 23:19:22

print1985 发表于 2012-7-25 21:00
entmake的，图中已有ka和kb名字的图块才行，注意生成的是图块，没分解

我的图块都是做好了放在指定文件夹的，所谓的图块名是dwg图的图名，可以用entmake函数吗？我要插入后分解的

半听可乐 · 发表于 2012-7-26 09:04:33

print1985 发表于 2012-7-25 20:56
用子程序+参数就行了根VL函数无关

“这句是command，不行的画自己修改下，你懂的” 听你这样说command使用时有什么隐患呢？

账号		自动登录	找回密码
密码			注册