怎样实现＝画矩形+查询面积+文字注写＝一步到位

toeastone

怎样实现＝画矩形+查询面积+文字注写＝一步到位

phoenixdjq

你说的不够清楚，你要写什么字呀

画矩形也一定要有先决条件的，最起码要有2个角点呀

jaminth

3. ;;输入命令RMC
4. (defun c:rmc ()
5. (setvar "cmdecho" 0)
6. (setq pt1 (getpoint "\n指定第一个角点:"))
7. (setq pt2 (getpoint pt1 "\n指定第另一个角点:"))
8. (command "rectangle" pt1 pt2)
9. (setq rgob (entlast))
10. (command "area" "o" rgob)
11. (setq aa (getvar "area"))
12.   (setq pt2 (getpoint "\n指定文字插入点:"))
13.       (setq decnum (getvar "useri1"))
14.       (setq olun (getvar "LUNITS"))
15.       (setvar "LUNITS" 2)
16.       (command "text" "m" pt2 200 "0" (rtos aa 2 decnum))
17.    (princ)
18.   )
19. (princ)

;;输入命令RMC (defun c:rmc () (setvar "cmdecho" 0) (setq pt1 (getpoint "\n指定第一个角点:")) (setq pt2 (getpoint pt1 "\n指定第另一个角点:")) (command "rectangle" pt1 pt2) (setq rgob (entlast)) (command "area" "o" rgob) (setq aa (getvar "area"))   (setq pt2 (getpoint "\n指定文字插入点:"))       (setq decnum (getvar "useri1"))       (setq olun (getvar "LUNITS"))       (setvar "LUNITS" 2)       (command "text" "m" pt2 200 "0" (rtos aa 2 decnum))    (princ)   ) (princ)

ZZXXQQ

将第二个getpoint换成getcorner后效果更好。

jaminth

谢谢,建议不错,接受!!

toeastone

出现提示：指定文字插入点:未知命令“658809644620”。按 F1 查看帮助。

到底是什么原因呢

sailorcwx

将文字样式中的字高改为0