双向偏移程序

clh521

这是我以前还不会编程的时候，东拼西揍搞出来的！

皇上快溜

clh521 发表于 2016-6-27 15:40
这是我以前还不会编程的时候，东拼西揍搞出来的！

谢谢clh521 ，，，，明经网友个个都古道热肠

皇上快溜

我在想，能不能以画平行线的形式来实现上面程序功能

根据屏幕上既定的基准，两点画一线，这条线是不生成的虚拟线，以对称方式在两旁生成同样长度的平行线，程序确定其平行距离

皇上快溜

琴剑江山_10184 发表于 2016-6-27 09:08

琴剑江山 好，请问你在该程序中使用的“鼠标左键结束”是哪个词键？我想尝试接在别的地方试试

琴剑江山_10184

皇上快溜 发表于 2016-6-27 23:28
琴剑江山 好，请问你在该程序中使用的“鼠标左键结束”是哪个词键？我想尝试接在别的地方试试

(getpoint "\n按鼠标左键不删除源对象 <空格删除>")

琴剑江山_10184

皇上快溜 发表于 2016-6-27 23:28
琴剑江山 好，请问你在该程序中使用的“鼠标左键结束”是哪个词键？我想尝试接在别的地方试试

(getpoint "\n按鼠标左键不删除源对象 <空格删除>")

皇上快溜

琴剑江山_10184 发表于 2016-6-28 07:55
(getpoint "\n按鼠标左键不删除源对象 ")

没改成功，惭愧，帮我看看下面这句
(setq bnisseting (getstring "\n空格默认X方向，或输入(Y)方向，或输入(S)进入设置"))
想把输入(Y)方向改为左键，前面那几个词令是否要变？

maiko

;;;来个vla简单的

2. (defun c:tt ( / o d e )
   
3.   (setq d (getdist "\n输入偏移距离<直接量取>:"))
   
4.   (setq e (not (getpoint "\n左键不删除 <空格删除>")))
   
5.   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
   
6.     (vlax-for o (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   
7.       (mapcar '(lambda (x)(vla-offset o x)) (list d (- d)))
   
8.       (if e (vla-delete o))
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt ( / o d e )<br />   (setq d (getdist "\n输入偏移距离<直接量取>:"))<br />   (setq e (not (getpoint "\n左键不删除 <空格删除>")))<br />   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))<br />     (vlax-for o (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />       (mapcar '(lambda (x)(vla-offset o x)) (list d (- d)))<br />       (if e (vla-delete o))<br />     )<br />   )<br />   (princ)<br /> )

皇上快溜

maiko 发表于 2016-6-29 00:52
;;;来个vla简单的

谢谢你。。。
vla制式是否跟lsp语言制式不一样？
将vla制式的程序和lsp制式的程序放在一起是否会彼此影响

longer1000

maiko 发表于 2016-6-29 00:52
;;;来个vla简单的

能加一个设置图层功能就完美你