能帮我看看这段代码的问题吗

jyc1118 · 发表于 2013-10-15 23:23:11

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

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

×

本帖最后由炫翔于 2014-7-9 10:45 编辑

下面这段代码使用来根据直筋画箍筋的
总是画不对，但是我检查了代码的数据坐标什么的都没有问题，头疼啊
{:soso_e134:}{:soso_e134:}

(defun test()
(setq zj (ssget)
n 0
len (sslength zj)
mix 2147483648
amx -2147483648
miy 2147483648
amy -2147483648)
(repeat len
(setq lst nil)
(setq sn (ssname zj n)
n (+ n 1)
ent (entget sn))
(foreach m ent
(if (= 10 (car m))
(setq lst (cons (cdr m) lst))
)
)
(princ lst)(princ)
(setq mix (min mix (car(car lst)) (car(cadr lst))))
(setq amx (max amx (car(car lst)) (car(cadr lst))))
(setq miy (min miy (cadr(car lst))))
(setq amy (max amy (cadr(car lst))))
)
(setq pmi (list (- mix 40) (- miy 65))
pma (list (+ amx 40) (+ amy 65))
wt1 (list (- amx 52) (+ amy 65))
wt2 (list (- amx 172) (- amy 55))
wt3 (list (+ amx 40) (- amy 27))
wt4 (list (- amx 80) (- amy 147)))
(command "LAYMCUR" sn "")
(command "RECTANGLE" "w" "30" pmi pma)
(command "pline" wt1 "w" "30" "" wt2 "")
(command "pline" wt3 "w" "30" "" wt4 "")
)

(defun test() 
  (setq zj (ssget) 
n 0 
len (sslength zj) 
mix 2147483648 
amx -2147483648 
miy 2147483648 
amy -2147483648) 
  (repeat len 
    (setq lst nil) 
    (setq sn (ssname zj n) 
   n (+ n 1) 
   ent (entget sn)) 
    (foreach m ent 
      (if (= 10 (car m)) 
(setq lst (cons (cdr m) lst)) 
) 
      ) 
    (princ lst)(princ) 
    (setq mix (min mix (car(car lst)) (car(cadr lst)))) 
    (setq amx (max amx (car(car lst)) (car(cadr lst)))) 
    (setq miy (min miy (cadr(car lst)))) 
    (setq amy (max amy (cadr(car lst))))    
   ) 
    (setq pmi (list (- mix 40) (- miy 65)) 
   pma (list (+ amx 40) (+ amy 65)) 
   wt1 (list (- amx 52) (+ amy 65)) 
   wt2 (list (- amx 172) (- amy 55)) 
   wt3 (list (+ amx 40) (- amy 27)) 
   wt4 (list (- amx 80) (- amy 147))) 
    (command "LAYMCUR" sn "") 
    (command "RECTANGLE" "w" "30" pmi pma) 
    (command "pline" wt1 "w" "30" "" wt2 "") 
    (command "pline" wt3 "w" "30" "" wt4 "") 
)

liuyun242 · 发表于 2013-10-16 00:11:04

试试关掉捕捉开关{:soso_e100:}

XDSoft · 发表于 2013-10-16 00:16:33

下次说问题，说下哪个地方不如你的愿，表现的情况是什么，这样才方便别人帮你。

如楼上朋友说的，凡是用 command 画线的时候，移动要关闭捕捉。因为command 和你平时自己用命令是一样的，受捕捉影响。

jyc1118 · 发表于 2013-10-16 10:20:07

liuyun242 发表于 2013-10-16 00:11
试试关掉捕捉开关

{:soso_e179:}多谢大神指教，就是这个问题

jyc1118 · 发表于 2013-10-16 10:23:32

XDSoft 发表于 2013-10-16 00:16
下次说问题，说下哪个地方不如你的愿，表现的情况是什么，这样才方便别人帮你。

如楼上朋友说的，凡是用 ...

嗯好的多谢大神下次说明情况

ysq101 · 发表于 2013-10-16 13:27:25

这就像是在跟医生说:我病了
你倒是说你感冒了还是发烧了啊......

jyc1118 · 发表于 2013-10-16 16:43:38

ysq101 发表于 2013-10-16 13:27
这就像是在跟医生说:我病了
你倒是说你感冒了还是发烧了啊......

就是就是下次说明情况

Free-Lancer · 发表于 2013-10-16 16:53:52

jyc1118 发表于 2013-10-16 16:43
就是就是下次说明情况

有代码再有图示更容易诊断

jyc1118 · 发表于 2013-10-16 18:42:48

Free-Lancer 发表于 2013-10-16 16:53
有代码再有图示更容易诊断

是的是的还望各位大神指教

ljshemail · 发表于 2013-10-28 13:02:52

不明白，你是不是想通过选定的直筋，按照给定的规格画箍筋？

jyc1118 · 发表于 2013-10-29 10:33:28

ljshemail 发表于 2013-10-28 13:02
不明白，你是不是想通过选定的直筋，按照给定的规格画箍筋？

是的已经解决了多谢

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

[求助] 能帮我看看这段代码的问题吗

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

相关帖子

点评

点评

点评

点评

点评

点评