[求助]2个图都画好了,但是往一块一放就乱了

bitterwood

我单独执行这个图形的程序都可以,但是先直性大图的程序,然后执行小图的程序,选小图插入点,对象捕捉就没有.我就手动开,选端点,但是选中以后出来的图就不对,不知道出什么问题了呢?可能就是对象捕捉的问题把>?谁帮帮我啊 大的哪个的程序 (defun c:huajianzhou()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(setq d1 (getreal "\nd1<20>:")
d1 (if d1 d1 20)
d2 (getreal "\nd2<0.5>:")
d2 (if d2 d2 0.5)
d3 (getreal "\nd3<28>:")
d3 (if d3 d3 28)
d4 (getreal "\nd4<26.6>:")
d4 (if d4 d4 26.6)
d5 (getreal "\nd5<23>:")
d5 (if d5 d5 23))
(setq l1 (getreal "\nl1<226>:")
l1 (if l1 l1 226)
l2 (getreal "\nl2<112>:")
l2 (if l2 l2 112)
l3 (getreal "\nl3<2.7>:")
l3 (if l3 l3 2.7)
l4 (getreal "\nl4<20>:")
l4 (if l4 l4 20)
l5 (getreal "\nl5<3>:")
l5 (if l5 l5 3)
l6 (getreal "\nl6<17>:")
l6 (if l6 l6 17))
(setq d12 (* d1 0.5)
d32 (* d3 0.5)
d42 (* d4 0.5)
d52 (* d5 0.5))
(setq a1 (/ pi 2)
a2 (/ pi -2)
a3 (* pi -1)
a4 (/(- d32 d52)(cos (/ pi 4))))
(setq pt0 (getpoint "\n请输入插入点：")
p1 (polar pt0 a1 d12)
p2 (polar p1 0 (- l4 l5))
p3 (polar p2 a2 d2)
p4 (polar p3 0 l5)
p5 (polar p4 a1 (+(- d52 d12)d2))
p6 (polar p5 (/ pi 4) (/(- d32 d52)(cos (/ pi 4))))
p7 (polar p6 0 (- l2 l4 (/(- d32 d52)(cos (/ pi 4)))))
p8 (polar p7 a2 (- d32 d42))
p9 (polar p8 0 l3)
p10 (polar p9 a1 (- d32 d42))
p11 (polar p10 0 (- l1 l2 l3 l6 (- d32 d52)))
p12 (polar p11 (/ pi -4) (/(- d32 d52)(cos (/ pi 4))))
p13 (polar p12 a2 (+(- d52 d12)d2))
p14 (polar p13 0 l5)
p15 (polar p14 a1 d2)
p16 (polar p15 0 (- l6 l5 2))
p17 (polar p16 (/ pi -4) (/ 2(cos (/ pi 4))))
p18 (polar p16 a2 d12)
p19 (polar p18 0 2)
p20 (polar p19 a3 (- l6 l5))
p21 (polar p20 a3 l5)
p22 (polar p21 a3 (- d32 d52))
p23 (polar p21 a3 (- l1 l6 l2 l3))
p24 (polar p23 a3 l3))
(command "pline" pt0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p19 "")
(setq s1 (entlast))
(command "line" p5 p12 "")
(setq s2 (entlast))
(command "line" p8 p24 "")
(setq s3 (entlast))
(command "line" p9 p23 "")
(setq s4 (entlast))
(command "line" p11 p22 "")
(setq s5 (entlast))
(command "line" p13 p21 "")
(setq s6 (entlast))
(command "line" p14 p20 "")
(setq s7 (entlast))
(command "line" p16 p18 "")
(setq s8 (entlast))
(command "mirror" s1 s2 s3 s4 s5 s6 s7 s8 "" pt0 p19 "n")
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(princ)
)


罗纹的程序 (defun c:luowen()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(setq d1 10
d2 8.5
d3 10.5
l1 30
l2 5
l3 2
l4 (+(* 2.0 d1) 9))
(setq d11 (/ d1 2.0)
d22 (/ d2 2.0)
d32 (/ d3 2.0))
(setq a1 (/ pi 2)
a2 (/ pi -2))
(setq p1 (getpoint "\n请输入插入点:")
p2 (polar p1 a1 (+ d22 (/ 2 (sqrt 3)) (* 1 (sqrt 3))))
p3 (polar p2 (/ pi -3) (/ 1 (cos (/ pi 3))))
p4 (polar p3 (/ pi -6) (/ 2 (cos (/ pi 6))))
p5 (polar p4 0 l3)
p6 (polar p5 a2 0.25)
p7 (polar p5 a2 1)
p8 (polar p6 0 (- l1 l2))
p9 (polar p7 0 (- l4 2))
p10 (polar p1 0 (+ l2 (- l4 2) (/(*(sqrt 3) 8.5) 6)))
p11 (polar p1 0 1)
p12 (polar p1 0 3)
p13 (polar p1 0 5)
p14 (polar p1 0 l1)
p15 (polar p1 0 (+ l2 (- l4 2))))
(command "pline" p1 p2 p3 p4 p5 p6 p7 p9 p10 "")
(setq s1 (entlast))
(command "pline" p6 p8 p14 "")
(setq s2 (entlast))
(command"line" p3 p11 "")
(setq s3 (entlast))
(command"line" p4 p12 "")
(setq s4 (entlast))
(command"line" p7 p13 "")
(setq s5 (entlast))
(command"line" p9 p15 "")
(setq s6 (entlast))
(command "mirror" s1 s2 s3 s4 s5 s6 "" p1 p10 "n")
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(princ)
)

bitterwood

自主搞定~ 原来把插入点放到哪个之前.就这样: (setq p1 (getpoint "\n请输入插入点:"))
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0) 然后在画之前把对象捕捉在acad中打开,在画就可以了. 或: (SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 1)
(setq p1 (getpoint "\n请输入插入点:"))
(setvar "osmode" 0) 更为有效. 多谢各位尤其是ZZXXQQ大哥的悉心教导,除了哪个剖面线我就不画了,还是学不会!在这次毕业设计中学到的东西很多.谢谢大家的帮助