lyh13 发表于 2007-5-11 17:11:00

pah

<p>我有个程序弄不对??求助:</p><p>我想插入旱地图例,想多次插入这个块.</p><p>(defun c:hd()&nbsp;&nbsp; (lsl (path "hd") "zb"));旱地 </p><p>"zb"是我建立的一个层.图例文件放在了"D:\fty\"里"hd.dwg"</p><p>(defun lsl(fty mnm / k pt num);多次插入<br/>&nbsp;(if (/= mnm "")(command "layer" "m" mnm ""))<br/>&nbsp;(setq pt (getpoint "\n **&nbsp; insert point(1) .. ") num 1 )<br/>&nbsp;(while pt<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq num (1+ num))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "insert" fty pt key "" "")(princ "OK")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq pt (getpoint (strcat "\n **&nbsp; insert point(" (itoa num) ") .. ")))<br/>&nbsp;)<br/>(princ)<br/>)</p><p>建立了lsl调用函数,结果还是连接不上,path未知,fty mnm k num&nbsp; 未知////求助帮我改改了。.</p>

dunkel 发表于 2007-5-11 18:52:00

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