[求助]：如何自动剪切?

whfdchst · 发表于 2006-3-20 11:40:52

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

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

×

下面是一个画平面门的程序,但剪切时很麻烦,需要点4次.请斑竹修改一下,让他自动剪切.谢谢!
(defun c:pmm(/)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq os (getvar "osmode"))
  (while (setq p (getpoint "\n基点:"))
(setq pt (getpoint p "\n输入插入点:")
   ;p1 (polar pt (/ pi 2) (/ hh 2))
   ww (getdist  "\n门洞宽:")
   hh (getdist  "\n墙厚:")
   p1 (polar pt (/ pi 2) (/ hh 2))
   p2 (polar p1 (/ pi -2) hh)
   p3 (polar p1 0 ww)
   p4 (polar p2 0 ww)
   p5 (polar p2 (/ pi -3) ww)
   )
(setvar "osmode" 0)
(command "line" p1 p2 "" )
(command "line" p3 p4 "" )
(command "line" p2 p5 "" )
(command "arc" "c" p2 p5 "l" p4)
(setq en1 (entsel "\n选择第一条基线:"))
(setq en2 (entsel "\n选择第二条基线:"))
(setq en3 (entsel "\n选择被剪切线1:"))
(setq en4 (entsel "\n选择被剪切线2:"))
;(setq ss (ssadd))
(command "trim" en1 en2 "" en3 en4 "")
(setvar "osmode" os)
(princ)
))

ljpnb · 发表于 2006-3-20 11:54:00

不明白，你所画的线全是端点与端点相连，还剪什么？

dandee · 发表于 2006-3-20 12:07:31

http://www.xdcad.net/forum/showthread.php?s=&threadid=416774

whfdchst · 发表于 2006-3-20 12:50:09

先画好墙线\中心线,然后使用本程序,最后需要将门洞内的墙线剪去.就是这最后一步很麻烦.

ljpnb · 发表于 2006-3-20 15:31:20

[php]
(defun c:pmm (/)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq os (getvar "osmode"))
  (while (setq p (getpoint "\n基点:"))
(setq pt (getpoint p "\n输入插入点:")
;p1 (polar pt (/ pi 2) (/ hh 2))
   ww (getdist "\n门洞宽:")
   hh (getdist "\n墙厚:")
   p1 (polar pt (/ pi 2) (/ hh 2))
   p2 (polar p1 (/ pi -2) hh)
   p3 (polar p1 0 ww)
   p4 (polar p2 0 ww)
   p5 (polar p2 (/ pi -3) ww)
   p13(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p3)
   p24(mapcar '(lambda (a b) (/ (+ a b) 2)) p2 p4)
)
(setvar "osmode" 0)
(command "line" p1 p2 "")
(setq en1(entlast))
(command "line" p3 p4 "")
(setq en2(entlast))
(command "line" p2 p5 "")
(command "arc" "c" p2 p5 "l" p4)
(command "trim" en1 en2 "" "f" p13 p24 "" "")
(setvar "osmode" os)
(princ)
  )
)[/php]

whfdchst · 发表于 2006-3-20 16:37:32

多谢5楼指点,佩服!佩服!

ruzhu · 发表于 2006-3-20 18:23:31

ddddddddddddd

whfdchst · 发表于 2006-3-21 09:29:18

请问各位,这两句是什么意思,能解释一下吗?查了函数的用法,但还是看不懂.请高手指点.

p13(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p3)
p24(mapcar '(lambda (a b) (/ (+ a b) 2)) p2 p4)

Underway · 发表于 2006-3-21 10:15:27

求中间点 (Middle Point)

===>直接求解
(/ (+ p1x p3x) 2)
(/ (+ p1y p3y) 2)

whfdchst · 发表于 2006-3-21 10:41:22

(setq p13(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p3)
(setq p24(mapcar '(lambda (a b) (/ (+ a b) 2)) p2 p4)
mapcar函数和lambda函数有什么用处呢?

Underway · 发表于 2006-3-21 10:48:51

(mapcar
'(lambda (a b) (/ (+ a b) 2))  ; ===> (defun foo (a b) (/ (+ a b) 2))
  p1
  p3
)

====>

(defun foo (a b) (/ (+ a b) 2))

(defun c:test ()
(list
   (foo (car  p1) (car  p3))
   (foo (cadr p1) (cadr p3))
   ;(foo (caddr p1) (caddr p3))
)
)

whfdchst · 发表于 2006-3-21 11:27:43

谢谢楼上解答,我把那两句该成了
(setq P13(polar p1 0 (/ ww 2)))
(setq p14(polar p2 0 (/ ww 2)))
程序也能正常运行.

超然A · 发表于 2006-3-21 19:33:24

看一下

76tom · 发表于 2006-3-21 21:16:35

佩服，新手想学，厉害！

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

[求助] [求助]：如何自动剪切?

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

相关帖子

浏览过的版块