cad 当框选时 不在视野范围内的元素选不中

HGHG011

(defun C:o3s(/ pt1 pt2 a b)

(SETQ PT1(GETPOINT "\n选择对象："))
(SETQ PT2(GETPOINT "\n指定对角点："))
(command "view" "s" "a")   --> 保存 视图 名字为1 。。。之类的,注意不要重名就是了。
(command "zoom" "w" pt1 pt2)
(command "STRETCH" "c" pt1 pt2 "")
(command "view" "r" "a")    -->下次恢复视图1
)
现在我就差 怎么实现最后一行命令 求高手

HGHG011

(defun C:o3s(/ pt1 pt2 a b)

(SETQ PT1(GETPOINT "\n选择对象："))
(SETQ PT2(GETPOINT "\n指定对角点："))
(command "view" "s" "a")   --> 保存 视图 名字为1 。。。之类的,注意不要重名就是了。
(command "zoom" "w" pt1 pt2)
(command "STRETCH" "c" pt1 pt2 "")
(command "view" "r" "a")    -->下次恢复视图1
)
现在我就差 怎么实现最后一行命令 求高手

夏生生

HGHG011 发表于 2013-1-18 10:47
(defun C:o3s(/ pt1 pt2 a b)

(SETQ PT1(GETPOINT "\n选择对象："))

;;;以拉伸为例
(defun c:ss( / pt1 pt2 ss)
(SETQ PT1(GETPOINT "\n选择对象："))
(SETQ PT2(GETcorner pt1 "指定对角点："))
(command "zoom" "w" pt1 pt2)
(if (> (car pt1)(car pt2))
(setq ss (ssget "c" pt1 pt2))
(setq ss (ssget "w" pt1 pt2))
)
(command "zoom" "p")
  (command "STRETCH" ss "")
  (command pause)
  (princ)
)

HGHG011

夏生生 发表于 2013-1-18 11:19
;;;以拉伸为例
(defun c:ss( / pt1 pt2 ss)
(SETQ PT1(GETPOINT "\n选择对象："))

十分感谢
明白了

SunSpring

HGHG011 发表于 2013-1-17 22:23
我最近刚学习 lisp 想编一个程序 但力不从心
下面这行命令 是画条直线 取直线的两个端点 作为 s 拉伸的两个 ...

;;;延长直线
(defun lengthen (entname dist / entdata ept npt spt)
  (setq entdata (entget entname))
  (setq spt (cdr (assoc 10 entdata)))
  (setq ept (cdr (assoc 11 entdata)))
  (if (> dist 0)
    (progn
      (setq npt (polar ept (angle spt ept) dist))
      (setq entdata (subst (cons 11 npt) (assoc 11 entdata) entdata))
    )
    (progn
      (setq npt (polar spt (angle ept spt) (abs dist)))
      (setq entdata (subst (cons 10 npt) (assoc 10 entdata) entdata))
    )
  )
  (entmod entdata)
  (princ)
)

来武影

我也发现cad有这个问题

davide888

学习了      

革天明

你程序中记住当前的屏幕视野，转移到想要的视野，选中后再返回视野不也行吗

xiaxiang

这个问题为什么autodesk不修正呢，还是认为这不是问题？非要依赖二次开发来解决。。。