byghbcx 发表于 2011-8-21 10:25:53

drawing1.dwg在我们机上没问题

caoyin 发表于 2011-8-21 14:30:52

(defun C:ACC (/ ENT P1 P2 I DD ENT ANG DIS P1 N)
(setq ENT (entsel "\n选择数字:")
      P1(getpoint "\n指定基点: ")
      P2(getpoint P1 "\n制定下一点: ")
      I   (getint "\n指定递增数量: ")
      DD(getint "\n制定递增值: ");;只考虑整数
      ENT (entget (car ENT))
      ANG (angle P1 P2)
      DIS (distance P1 P2)
      P1(cdr (assoc 10 ENT))
      N   (atoi (cdr (assoc 1 ENT)))
)
(if (/= (cdr (assoc 72 ENT)) (cdr (assoc 73 ENT)) 0)
    (setq P2 (cdr (assoc 11 ENT)))
    (setq P2 nil)
)
(repeat I
    (setq N   (+ N DD)
          P1(polar P1 ANG DIS)
          ENT (subst (cons 10 P1) (assoc 10 ENT) ENT)
    )
    (if P2
      (setq P2(polar P2 ANG DIS)
            ENT (subst (cons 11 P2) (assoc 11 ENT) ENT)
      )
    )
    (entmake (subst (cons 1 (itoa N)) (assoc 1 ENT) ENT))
)
)

chengx2000 发表于 2011-8-21 20:31:12

或许是我的CAD有问题？？？百思不得其解
大家都运行没出现问题吗？

chengx2000 发表于 2011-8-21 20:51:22

caoyin 发表于 2011-8-21 14:30 static/image/common/back.gif
(defun C:ACC (/ ENT P1 P2 I DD ENT ANG DIS P1 N)
(setq ENT (entsel "\n选择数字:")
      P1(g ...

希望版主对这一段代码解释一下，我对DXF不熟：
(if (/= (cdr (assoc 72 ENT)) (cdr (assoc 73 ENT)) 0)
    (setq P2 (cdr (assoc 11 ENT)))
    (setq P2 nil)
)
再次感谢你的帮助！

caoyin 发表于 2011-8-21 22:31:11

没有人能把所有组码都记住，为什么不查帮助？

zhuangxu_521 发表于 2011-8-30 15:43:09

很不错的

zhangcan0515 发表于 2017-9-15 16:58:05

不错 厉害了
页: 1 [2]
查看完整版本: 求助：数值递增程序