怎样通过LISP给PL线附加Z值!!!!!!!!!

叶文军

请问怎样通过lisp程序给一条PL复合线添加z值????

meflying

(command "_.move" ent '(0 0 0) (list 0 0 z))

叶文军

(defun c:fbymj(/ pt pt1 en aa )
(cmdla0)
(setq pt (getpoint "\n选取封闭域内一点: "))
(while pt
(setq pt1 pt)
(mkla"封闭域辅助线"8)
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)

(setq aa (getvar "area"))
(redraw en 4);1标准2空白3高亮4低亮
;(alert (strcat "面积=" (rtos (/ aa 1000000) 2 2)));;;此句可以显示面积数（单位平方米）
)
)
;(entdel en);;;此句可以删除“封闭域辅助线”
(mkla"面积标注"4)
(command"text""mc" pt1 "3" "0" (rtos (/ aa 1.000000) 2 4))
setq z (getstring "\n请输入z值:"));我加进去的句子
(command "_.move" en '(0 0 0) (list 0 0 z)) ;我加进去的句子
(setq pt (getpoint "\n选取封闭域内一点: "))
) 不知道这样加进去后为什么会出错?

meflying

en后面加个空回车


(command "_.move" ent "" '(0 0 0) (list 0 0 z))

叶文军

觉得这个怎么样?我自己想的:


(command "_.change"         en "" "p" "e" z "")

ll_j

叶文军发表于2004-10-26 18:40:00(command\"text\"\"mc\" pt1 \"3\" \"0\" (rtos (/ aa 1.000000) 2 4))                                        setq z (getstring \"\n请输入z值:\"));我加进去的句子                         (command \"_.move\" en '(0 0 0) (list 0 0 z)) ;我加进

         这里的 getstring 应该为 getreal，否则得到的是字符串，后面一句就...

xyp1964

setq z (getstring "\n请输入z值:"))


缺左括号！

yjrun

或者试试xdata如何

ffast

_.move 前面的_.是什么意思啊？


谢！

BDYCAD

_.这个也可以省去.         _ 和 . 是表示使用原始指令, 就是防止所使用的指令被禁用了还可以顺利使用该指令所采用的有效方法.