这个程序什么问题，谁能够帮忙改下，谢谢！！！

Smile cop · 发表于 2013-4-30 18:11:49

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

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

×

LoveArx · 发表于 2013-4-30 19:00:26

朋友，你应该学会怎么把你的问题告诉大家，你这样的标题，谁会知道什么问题呢? 你总得把这个程序做什么的，然后你用的时候哪里出错了告诉大家吧。

Free-Lancer · 发表于 2013-4-30 20:11:15

[pcode=lisp,true];;双向标注
(defun c:d2 (/ hlangue clay pt1 pt2 i osm x1 y1 x2 y2 pt3 pt4)
  (setq clay (getvar "clayer"))
  (if (= (tblobjname "layer" "DIM") nil)
(progn
   (entmake
      (list
      '(0 . "LAYER")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLayerTableRecord")
      '(70 . 0)
      (cons 6 "CONTINUOUS")
      (cons 62 4)
      (cons 2 "DIM")
      )
   )
)
  )
  ;;(setvar "clayer" "YY-DIM")
  (setvar "clayer" "DIM")
  (while (setq pt1 (getpoint "\nSpecify feature location:"))
(setq pt2 (getpoint pt1 "\nSpecify leader endpoint:"))
(setq x1 (car pt1)
      y1 (cadr pt1)
)
(setq x2 (car pt2)
      y2 (cadr pt2)
)
(if       (< (abs (- x2 x1)) (* 0.1 (abs (- y2 y1))))
   (command "dimordinate" pt1 pt2)
   (if (< (abs (- y2 y1)) (* 0.1 (abs (- x2 x1))))
      (command "dimordinate" pt1 pt2)
      (progn
      (setq pt3 (list x1 y2))
      (command "dimordinate" pt1 pt3)
      (setq pt3 (list x2 y1))
      (command "dimordinate" pt1 pt3)
      )
   )
)
  )
  (setvar "osmode" osm)
  (setvar "clayer" clay)
  (princ)
)[/pcode]

Smile cop · 发表于 2013-5-1 11:19:19

谢谢 Free-Lancer 和LoveArx ！

twtysoi · 发表于 2020-1-13 19:30:24

你这个有不好的地方，在PT时要关捕捉不然，坐标是水平的，

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

[求助] 这个程序什么问题，谁能够帮忙改下，谢谢！！！

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

相关帖子