pah

lyh13

我有个程序弄不对??求助:

我想插入旱地图例,想多次插入这个块.

(defun c:hd()   (lsl (path "hd") "zb"));旱地

"zb"是我建立的一个层.图例文件放在了"D:\fty\"里"hd.dwg"

(defun lsl(fty mnm / k pt num);多次插入
 (if (/= mnm "")(command "layer" "m" mnm ""))
 (setq pt (getpoint "\n **  insert point(1) .. ") num 1 )
 (while pt
     (setq num (1+ num))
     (command "insert" fty pt key "" "")(princ "OK")
     (setq pt (getpoint (strcat "\n **  insert point(" (itoa num) ") .. ")))
 )
(princ)
)

建立了lsl调用函数,结果还是连接不上,path未知,fty mnm k num  未知////求助帮我改改了。.

dunkel

path 不是内置的 lsp 函数吧？如果 d:\fty 目录在 ACAD 的搜索路径列表中，可以 (lsl  "hd" "zb")  否则就是  (lsl  "d:\\fty\\hd" "zb")
k, key, 不知道究竟用的是那个, 而且在 lsl 函数中也没用定义就使用了, 从 "insert" 的命令序列来看, 应该是插入的比例吧.
另外, 如果只是这样的功能的话, 不需要这么做吧. 先插入一个后, 直接点击后拖动复制也是很简单