求助：数值递增程序

byghbcx

drawing1.dwg在我们机上没问题

caoyin

(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

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

chengx2000

caoyin 发表于 2011-8-21 14:30
(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

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

zhuangxu_521

很不错的

zhangcan0515

不错 厉害了