freeok 发表于 2013-11-28 00:03:04

如何修改为一次选择？谢谢！

(defun c:JS ()
(setq ss1 (sslength (ssget (list (cons 0 "LWPOLYLINE") (cons 43 50)))))
(setq ss2 (sslength (ssget (list (cons 0 "LWPOLYLINE") (cons 43 0)))))
(setq s1 (rtos ss1 2 0))
(setq s2 (rtos ss2 2 0))
(setq s3 (strcat "实的=" s1 " " "虚的=" s2))
(SETQ PT (GETPOINT"\nPick the point you want to write txt:"))
(COMMAND "TEXT" PT "" "" S3)
)

ll_j 发表于 2013-11-28 07:57:33

(ssget '((0 . "LWPOLYLINE") (-4 . "<OR") (43 . 0.0) (43 . 50.0) (-4 ."OR>")))
页: [1]
查看完整版本: 如何修改为一次选择？谢谢！