[LISP程序]：请问一个技术问题！

haojia

这个程序有很多人已经实验过，是EAO老大编辑的，而且能用，大家都说能用，但我怎么试也不行啊！所以来问问。这个命令是为把一堆相同的块的部分几个块改名字的程序，当然，用rename好象可以，但不能框选，用这个可以同时框选多个块。但是我使用是出现了问题，先看看原程序把，是这样的：

先定义个新块,里面的内容照搬好了.

把你选中的insert变为新名称.

任意一个新块双击...


code: (defun c:cccc( / e en j new old ss)
(defun dxf(a b)(cdr(assoc a b)))
(command"undo""group")
(if(and(setq ss(ssget '((0 . "INSERT"))))
        (setq new(getstring "\n名称:"))
        (not(tblsearch "block" new))   
     )
   (progn
    (setq old(dxf 2(entget(ssname ss 0))))
    (command "-insert" old '(0 0) "1""1" 0)
    (command "explode"(entlast))
    (command "-block" new '(0 0)"P" "")
    (setq j 0)
    (repeat(sslength ss)
     (setq e(ssname ss j)
           en(entget e)
           en(subst(cons 2 new)(assoc 2 en)en)
      )
      (entmod en)
      (setq j(1+ j))
     )
   ))(command"undo""end")
   (princ)
)





块里不要有属性!
执行完就可以双击啦.




我能用这个命令，我想把部分名称问1的块改名称为14。但是系统要我按F1！！烦死，能帮我看看什么问题吗？出现这个的情况：

Command: cccc
Select objects: Other corner: 14 found

Select objects:
名称:14
Unknown command "-INSERT". Press F1 for help.
Unknown command "1". Press F1 for help.
Unknown command "1". Press F1 for help.
Unknown command "1". Press F1 for help.
0
Unknown command "CCCC". Press F1 for help.
Unknown command "-BLOCK". Press F1 for help.
Unknown command "14". Press F1 for help.
Unknown command "P". Press F1 for help.
Unknown command "CCCC". Press F1 for help.

这个命令那么好，为什么就我不能用！！
大家元宵快乐。

xcajcj

把
(command "-insert" old '(0 0) "1" "1" 0)
和
(command "-block" new '(0 0)"P" "")
两语句改为
(command "insert" old '(0 0) "1" "1" 0)
和
(command "block" new '(0 0)"P" "")
试一试

zhang8755

(command "-insert" old '(0 0) "1" "1" 0)
和
(command "-block" new '(0 0)"P" "")
中的 '-' 应为下划线 '_'

陌生人

r14应该为_
r200x应该为－

Qlin

最初由 陌生人 发布
[B]r14应该为_
r200x应该为－ [/B]

在命令行输入(command "block")试试

haojia

陌生人老大是说得最正确！！不过我得到这个LSP程序也是看了陌生人和EAO激烈争论出来的，呵呵

tuger

用陌生人的测试通过了

陌生人

最初由 haojia 发布
[B]陌生人老大是说得最正确！！不过我得到这个LSP程序也是看了陌生人和EAO激烈争论出来的，呵呵 [/B]

哈哈，此言差已！其实qlin最正确
因为在lsp中 (command ".insert" ....)是不会调用对话框的。所以加－还是_.都是画蛇添足。不如不加

e2002

Q: 为什么需要在命令名称前面加上 "_" 和"."

A: 如果所开发的 AutoLISP 程序可能在外语版的 AutoCAD 中使用，则可以在每一个命令和关键字前面加下划线 (_)，这样系统将会自动翻译标准的 AutoCAD 命令和关键字。

(command "_line" pt1 pt2 pt3 "_c")

如果还想使用圆点前缀（可避免使用重定义命令），圆点和下划线之间的顺序可以任意，例如“._line”和“_.line”都是合法的。

e2002

命令名前面的"-"(减号)不是"加"上去的,这是一个命令行方式的命令,以区别现在的对话框方式的命令.

例如: layer和-layer

默认的,在Visual中LISP程序中command函数中参数的的"命令名"实际都是调用命令行版本,
如果需要使用对话框版本,需要在command函数前使用initdia函数,具体请看VL帮助文档