Lisp plot Without pick by win
大家好。我希望通过选择帧外部参照（adlayout before）而不是拾取2点（按窗口）来打印图形。我试着写，但失败了，我希望每个人都能帮助我。非常感谢你！！。祝您今天过得愉快;CONG TY CP TU VAN XAY DUNG CONG TRINH 625
;P、 TKCD-CIENCO625
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
（提示“\n-TDK-P.TKCD-CIENCO625”）
;LIPS IN HANG LOAT-（2016年12月31日）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
（defun c:IN（）
（提示“\n-APPLY TO LAYOUT BEFORE”）
（setq tl（getreal“\nHap ty le in ban ve 1/：”）
;quet chon cac外部参照
（princ“\nQuet chon外部参照：”）
（setq sset（ssget（list）（0。“INSERT”）））
（setq i 0）
（setq lmt（sslength sset））
（虽然(
（setq DOITOUNG（ssname sset i））
（setq laynd（entget DOITOUNG））
（setq p1（cdr（assoc 10 laynd）））
（setq p2（列表（+（car p1）420）（+（cadr p1）297）））
（命令“_plot”“y”“”“”“m”“”“”“w”p1 p2 tl“c”“y”“”“y”“”“n”“n”“n”“y”）
（setq i（+i 1））
)
（普林斯） E còn quát kiế第n个ứcđể lám việc náy
页:
[1]