请各位豪杰出手相助，小弟求一个框选打X的LISP的程序。

soly2006 · 发表于 2012-7-20 16:25

pzweng 发表于 2012-7-20 16:18

这个现在省事，标错了那就不省事了。不好删除。

pzweng · 发表于 2012-7-20 16:44

soly2006 发表于 2012-7-20 16:25
这个现在省事，标错了那就不省事了。不好删除。

(defun c:mk ()
  (setq clayer (getvar "clayer"))
  (command "layer" "m" "作废"  "c" 1 "" "")
  (setq pt3 (getcorner (setq pt1 (getpoint)) "选择另一点"))
  (setq pt2 (list (car pt3) (car (cdr pt1))))
  (setq pt4 (list (car pt1) (car (cdr pt3))))
  (command "line" pt1 pt3 "")
  (command "line" Pt2 pt4 "")
  (setvar "clayer" clayer)
  (princ)
)

【KAIXIN】 · 发表于 2012-7-21 16:07

pzweng 发表于 2012-7-20 16:18

这个好点，对于很少的操作直接用COMMAND就好

adc · 发表于 2012-7-21 22:41

我习惯是画框填充起来，图太大的时候，画叉看不清

ZZXXQQ · 发表于 2012-7-22 11:21

一个打叉的。

(defun c:tt ()
(if (and (setq p1 (getpoint "\n第一点 :"))
(setq p2 (getcorner p1 "\n另一点 :"))) (progn
(setq p3 (list (car p1) (cadr p2))
p4 (list (car p2) (cadr p1)))
(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2) '(8 . "作废")))
(entmake (list '(0 . "LINE") (cons 10 p3) (cons 11 p4) '(8 . "作废")))
))
(princ)
)

一个填充的。

(defun c:tt ()
(if (and (setq p1 (getpoint "\n第一点 :"))
(setq p2 (getcorner p1 "\n另一点 :"))) (progn
(setq p3 (list (car p1) (cadr p2))
p4 (list (car p2) (cadr p1)))
(entmake
(list
'(0 . "SOLID")
'(8 . "作废")
(cons 10 p1)
(cons 11 p4)
(cons 12 p3)
(cons 13 p2)
)
)
))
(princ)
)

669423907 · 发表于 2012-7-22 21:01

这个功能有时还是很有用的。

lz123456 · 发表于 2012-7-22 21:38

其实画叉不是好实用，最好是直接框选图框自动画，那图框是线或块都行的

lz123456 · 发表于 2012-7-22 21:39

其实画叉不是好实用，最好是直接框选图框自动画，那图框是线或块都行的

lz123456 · 发表于 2012-7-22 21:42

其实画叉不是好实用，最好是直接框选图框自动画，那图框是线或块都行的

preone · 发表于 2012-7-23 19:26

ZZXXQQ 发表于 2012-7-22 11:21
一个打叉的。

一个填充的。

突然发现 entmake 这个函数真好使，谢谢大师~~

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

请各位豪杰出手相助，小弟求一个框选打X的LISP的程序。

评分