- 积分
- 3760
- 明经币
- 个
- 注册时间
- 2019-12-25
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
(setq vs 2000)
(setq vc (getvar "viewctr"))
(setq vc (trans vc 1 2))
(setq pcx (car vc)
pcy (cadr vc)
pt1 (list (- pcx vs) (- pcy vs))
pt2 (list (+ pcx vs) (+ pcy vs))
)
(setq pt1 (trans pt1 2 1))
(setq pt2 (trans pt2 2 1))
;这里pt1,pt2是可以的
(setq entgrp (ssget "x" (list '(0 . "insert")
'(-4 . "<and")
'(-4 . ">,>,*") (cons 10 pt1)
'(-4 . "<,<,*") (cons 10 pt2)
(cons 2 titlename)
(cons -4 "<not")
(cons 8 lys)
(cons -4 "not>")
'(-4 . "and>"))))
请教一下大家,想实现用户UCS下的选择,哪里不对呢?
|
|