急需高手指点LISP在2004里的问题

jack2913

希望高手们帮我修改问题所在，我一次定义所选的线宽，拜托高手们了！！！

xazhji

选择后，在线宽栏选择不行吗？

jack2913

我要的感觉就是画出来的图面，直观上直接看到效果，打印出来就是有线宽。可以的和话再帮帮忙，非常感谢

小妹丁

jack2913发表于2004-11-9 20:59:00我要的感觉就是画出来的图面，直观上直接看到效果，打印出来就是有线宽。可以的和话再帮帮忙，非常感谢

显示线宽不就可以了？

jack2913

我的lisp在14里是可用的，但到2004里就不行了，请各位高手指点指点

jack2913

我的lisp在14里是可用的，但到2004里就不行了，请各位高手指点指点 (defun tht_err(s)
(if (/= s "function cncelled")
(princ(strcat "\nError: " s)))(princ)
)
(DEFUN THT(T / ENT1 i)
(setq *error* tht_err)
(command "undo" "g")
(SETVAR "CMDECHO" 0)
(setq i 0)
(IF (SETQ ENT1 (SSGET))
(repeat (sslength ENT1)
(setq ent(cdr(assoc 0(entget(setq entn(SSNAME ENT1 i))))))

(if (= ent "LWPOLYLINE")
(COMMAND "PEDIT" entn "W" T "")
(if (or (= ent "ARC") (= ent "LINE"))
(COMMAND "PEDIT" entn "Y" "W" T "")
""))
(setq i(+ i 1))
)
(princ "No line OR Polyline")
)
(princ)
(command "undo" "end")
)
(defun c:t0()(tht 0.0))
(DEFUN C:TA1() (THT 0.1))
(DEFUN C:TA2() (THT 0.2))
(DEFUN C:TA3() (THT 0.3))
(DEFUN C:TA4() (THT 0.4))
(DEFUN C:TA5()(THT 0.5))
(DEFUN C:TA6()(THT 0.6))
(DEFUN C:TA7()(THT 0.7))
(DEFUN C:TA8()(THT 0.8))
(DEFUN C:TA9() (THT 0.9))
(DEFUN C:T1()(THT 1))
(DEFUN C:TH()
(if (= (getvar "userr1") 0)
(progn
(SETQ TT(GETDIST "INPUT THICKNESS: "))
(setvar "userr1" tt)
)
(progn

(prompt "thickness is ")(prompt (rtos (getvar "userr1") 2 2))
(prompt " : ")
(if (= (setq tt(getdist)) nil)
(setq TT (getvar "userr1"))
(setvar "userr1" tt)
)
)
)
(THT TT))
(DEFUN C:T2()(THT 2))
(DEFUN C:T3()(THT 3))
(DEFUN C:T4()(THT 4))
(DEFUN C:T5()(THT 5))
(DEFUN C:T6()(THT 6))
(DEFUN C:T7()(THT 7))
(DEFUN C:T8()(THT 8))
(DEFUN C:T9()(THT 9))
(DEFUN C:T10()(THT 10))
(DEFUN C:T15()(THT 15))
(DEFUN C:T20()(THT 20))
(DEFUN C:T30()(THT 30))
(DEFUN C:T40()(THT 40))
(DEFUN C:T50()(THT 50))
(DEFUN C:T60()(THT 60))
(DEFUN C:T70()(THT 70))
(DEFUN C:T80()(THT 80))
(defun c:t90()(tht 90))
(DEFUN C:T100()(THT 100))
(defun c:t150()(tht 150))
(DEFUN C:T200()(THT 200))
(DEFUN C:T300()(THT 300))
(DEFUN C:T400()(THT 400))
(DEFUN C:T500()(THT 500))
(defun c:t600()(tht 600))
(defun c:chth()
(sslength(ssget))
)

meflying

T是保留字符,建议将参数T改为TH或别的...

jack2913

meflying我已修改但好像还是不行，请在指教，谢谢你的帮助，最好就是帮忙在上面改好，十分感激。。。。。

meflying

你怎么改的????


就是把你程序中所有的单个的"T"("TH" "THT"等中的"T"不算)改成别的就可以了...