仿别人的一个程序----源码！---更新第二个程序，在18楼

xingyun300 · 发表于 2012-7-29 16:39:54

本帖最后由 xingyun300 于 2012-8-7 14:17 编辑

别人的一个程序，自己一直用！可只能单选！

自己就重新做了一个，希望大家指导，改进一下！

自己编的如下：

(defun c:k1()
(setvar "cmdecho" 0)
(setq ww (getreal "\n请输入宽度:"))
(setq old_os (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\n《框选欲变矩形的直线》")
(setq ss (ssget '((0 . "LINE"))))
(setq nn 0)
(repeat (sslength ss)
   (setq en (ssname ss nn))
  (setq endata (entget en))
  (progn (setq pts (assoc 10 endata))
      (setq pt1 (cdr pts))
   (setq pte (assoc 11 endata))
   (setq pt2 (cdr pte))
   (setq ll (distance pt1 pt2))
   (setq ang (angle pt1 pt2))
   (setq pta (polar pt1 (+ ang (/ pi 2)) (/ ww 2)))
   (setq ptb (polar pta (+ ang (* pi 1.5)) ww))
   (setq ptc (polar ptb ang ll))
   (setq ptd (polar pta ang ll))
   (command "pline" pta ptb ptc ptd "c")
   (setq nn (1+ nn))
   )
   )
(setvar "osmode" old_os)
(setvar "cmdecho" 1)
(princ)
)

AMTONNY · 发表于 2013-5-24 20:16:12

想法不错了，省了不少时间了嘀

paulpipi · 发表于 2019-8-24 12:47:35

顶楼主，谢谢楼主分享

xvjiex · 发表于 2019-8-24 15:29:58

全是干货！赞！

xyp1964 · 发表于 2012-7-29 17:20:13

;; 直线变矩形
(defun c:tt ()
(setvar "osmode" 0)
(setq ww (getreal "\n请输入宽度: "))
(prompt "\n框选欲变矩形的直线: ")
(setq ss (ssget '((0 . "LINE")))
d (* ww 0.5)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p1 (vlax-curve-getstartPoint s1)
p2 (vlax-curve-getendPoint s1)
r (+ (angle p1 p2) (* pi 0.5))
)
(command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
)
(princ)
)

xingyun300 · 发表于 2012-7-29 18:52:51

本帖最后由 xingyun300 于 2012-7-29 18:56 编辑

xyp1964 发表于 2012-7-29 17:20

好像没有子程序呀，应该运行不了吧！

看错了，能用！谢谢！

vlisp2012 · 发表于 2012-7-29 20:47:21

院长继续发源码了！
非常感谢分享！

xingyun300 · 发表于 2012-7-29 20:56:43

xyp1964 发表于 2012-7-29 17:20

你这个更简单！可不懂vlax-curve-getstartPoint 和vlax-curve-getendPoint 这两个函数！

我是刚学！！！

革天明 · 发表于 2012-7-29 21:39:26

顶楼主，谢谢楼主分享

华轩〈肖〉 · 发表于 2012-7-29 22:32:03

顶楼主
谢谢楼主分享

longer1000 · 发表于 2012-7-30 08:41:39

顶楼主
谢谢楼主分享

yoyoho · 发表于 2012-7-30 08:57:30

谢谢楼主分享

xingyun300 · 发表于 2012-7-30 11:56:04

谢谢大家的支持,我们继续努力的！！！！！

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

仿别人的一个程序----源码！---更新第二个程序，在18楼

本帖子中包含更多资源

评分

点评