[编程申请]：如何将选中的符合要求的对象(外径为100内径为0的圆环)亮显

lengliqun · 发表于 2007-10-23 11:11:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何将选中的符合要求的对象(外径为100内径为0的圆环)亮显且在命令行最下面一行或第二行显示选中了多少个对象。
下面这个程序不能亮显符合要求的对象。请帮忙改改，谢谢。

(defun c:s1 ()
  (CMDLA0)
  (setq ss (ssget '((70 . 1)(43 . 50.0)(90 . 2)(0 . "LWPOLYLINE")))
i  -1
  )
(command "_pselect" ss "")
(print (strcat "共选中 " (itoa (sslength ss)) " 符合条件的对象"))
  (CMDLA1)
)

gysjy · 发表于 2007-10-23 12:28:00

(defun c:s1 ( / ss)
(setq ss (ssget '((0 . "LWPOLYLINE")(70 . 1)(43 . 50.0))))
(princ (strcat "共选中 " (itoa (sslength ss)) " 个符合条件的对象"))
(princ)
)

xyp1964 · 发表于 2007-10-23 12:54:08

[FONT=courier new](defun c:test ()
(if (setq ss (ssget '((70 . 1) (43 . 50.0) (90 . 2) (0 . "*POLYLINE"))))
(progn
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(redraw s1 3)
)
(princ(strcat "共选中 " (itoa (sslength ss)) " 个符合条件的对象"))
)
)
(princ)
)[/FONT]

lengliqun · 发表于 2007-10-23 13:05:45

二楼的还是不能如图示亮显。
三楼的可以亮显，但无图中蓝色夹点显示，分辨不清楚，请问三楼可否加上蓝色夹点显示?
谢谢。

Free-Lancer · 发表于 2007-10-24 20:56:40

sssetfirst

lengliqun · 发表于 2007-10-25 10:39:26

最初由 Free-Lancer 发布
[B]sssetfirst [/B]

不懂。
查否写出程序段？

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

[编程申请]：如何将选中的符合要求的对象(外径为100内径为0的圆环)亮显

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子