790027903 发表于 2013-7-29 07:33:49

CAD不在屏幕内画图 是不是也会出错？？？？大神帮忙

我的程序就是在屏幕外画好多矩形 可是有时会少几个 但在屏幕内总是对的不知道是cad自身的问题 还是程序的问题 请知道的大神帮忙 小弟感激不尽 本人菜鸟！！！

Andyhon 发表于 2013-7-29 09:03:43

...有时会少几个...

就依这个实时状况[图+程序] 上传供探讨呗

自贡黄明儒 发表于 2013-7-29 09:14:56

;;13 判断点是否在屏幕内BY wowan1314
(defun YY-ptinview (pt / a b c d x)
    (setq b (getvar "viewsize")
          c (car (getvar "screensize"))
          d (cadr (getvar "screensize"))
          a (* b (/ c d))
          x (trans (getvar "viewctr") 1 2)
          c (list (- (car x) (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0)
          d (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0)
          a (MAPCAR '<= C (TRANS PT 1 2) D)
    )
    (AND (CAR A) (CADR A))
)

790027903 发表于 2013-7-29 10:52:56

谢谢上边两位大神 小弟在此膜拜了 既然在屏幕外画图不会出现问题 那应该是选择时出现了问题 选择时两点都应该在屏幕内 我有时候可能只有一点在屏幕内了 感谢大侠的帮助 小弟没齿难忘！！！！

790027903 发表于 2013-7-29 10:53:42

本帖最后由 790027903 于 2013-7-29 11:10 编辑

还有个问题 就是 如何把多段线偏移后 使其起点和起点连接 终点和终点连接？？？？？

Andyhon 发表于 2013-7-29 11:16:24

可以先串接吗?
页: [1]
查看完整版本: CAD不在屏幕内画图 是不是也会出错？？？？大神帮忙