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

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>")))

账号		自动登录	找回密码
密码			注册

[提问] 如何修改为一次选择？谢谢！

本帖子中包含更多资源

相关帖子