帮我看这段lisp,后续的怎么写?

psufngah

(setq gp (getpoint "\n选择插入点:"))
;;;(setq pt1 (polar gp 0 11))
;;;(setq pt2 (polar pt1 (/ pi 2) 11))
(setq gt (getstring t "\n请输入代号:"))
(setq c1(command "circle" gp 11))
(setq c2(command "circle" gp 7))
(setq c3(command "_attdef" "i" "" "code" "代号" "" gp "0.002" ""))
(command "_block" gt gp .........)
(command "insert" ...............)

求教!!!!!怎么把这段画出来的东西,做成属性块?
要求是一运行时.就直接插入这属性块.

最好是在pt2处加一个代号.这个代号为可见的一般文字.但用DDATTE也可修改.

英雄无敌

(setq gp (getpoint "\n选择插入点:"))
;;;(setq pt1 (polar gp 0 11))
;;;(setq pt2 (polar pt1 (/ pi 2) 11))
(setq gt (getstring t "\n请输入代号:"))

(setq ssgrp (ssadd))
(setq c1(command "circle" gp 11))

(ssadd (entlast) ssgrp)
(setq c2(command "circle" gp 7))

(ssadd (entlast) ssgrp)

(command "_attdef" "i" "" "code" "代号" "" gp "0.002" "");文字高度这么小，看得见吗？

(ssadd (entlast) ssgrp)
(setq blkn (rtos (* 100000000 (getvar "cdate")) 2 0))
(command "_block" blkn gp ssgrp "")
(command "insert" blkn gp 1 1 0 gt)

ZZXXQQ

(ssadd (entlast) ssgrp)应该改成(setq ssgrp (ssadd (entlast) ssgrp))

英雄无敌

ZZXXQQ发表于2007-7-9 16:23:00(ssadd (entlast) ssgrp)应该改成(setq ssgrp (ssadd (entlast) ssgrp))

这样也行，但没有必要，因为结果是一样的

psufngah

OK了。。。多谢。。。。不枉等了二天。。。。