[求助]：关于云线的画法

chenseven · 发表于 2004-9-11 23:45:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何在画云线时可以让云线在水平方向按直线运动？？

hust_laohu · 发表于 2004-9-14 13:58:57

云线是什么啊？
我好像从来没有听说过呢！

lzy9788 · 发表于 2004-9-14 15:20:35

就那样画出来不行吗，为什么非要按什么垂直、水平

chenseven · 发表于 2004-9-15 00:11:00

客户要求的再修改过的地方要画上云线，一定要整齐，现在只能用傻瓜的方法一个半圆一个半圆的连起来太麻烦了。所以想请高手帮忙指点迷津。

梦断江南 · 发表于 2004-9-15 01:56:08

可以啊，按F8正交，然后移动鼠标
鼠标往x，y轴移动方向不要离开云线1个直径长就行了。不然会改变方向

我啊 · 发表于 2004-9-15 16:21:35

楼上的老大，我试过了，按F8好象没什么用啊
还有“鼠标往x，y轴移动方向不要离开云线1个直径长就行了。不然会改变方向”是什么意思？
好像就是要移出一个直径长才能向前移动啊，不知道我错在哪里了？请指教！！！谢谢

梦断江南 · 发表于 2004-9-15 19:05:21

是要这种效果么？

hyx_lyn · 发表于 2004-9-15 20:02:56

看过楼上的演示才知道云线是怎么一回事

画云线的命令是什么？

aeo · 发表于 2004-9-16 00:25:11

所谓"云线"就是随机的东东,你看过哪朵云是有规律的:)

你要的方法，先画个多边形,再一次变过来比较好.

帮你写了一个
[php]
(defun c:yx( / bul bul1 fx dis e j len lst num pl pst pts x makepl)
(defun makepl()
(entmakex
   (append lst
   (apply 'append(mapcar '(lambda(x)(list(list 10(car x)(cadr x))(cons 42(* fx bul)))) pts))
))
  )
(command "undo""begin")
(if(and
(setq pl(car(entsel "\n选闭合pl线:")))
(setq len(vlax-curve-getdistatParam pl(vlax-curve-getEndParam pl))
      pst(vlax-curve-getStartPoint pl)
      pts(cons pst pts)
      fx  1
)
(setq dis(getdist pst"\n每段长度:"))
(or(setq bul(getreal "\n弓半弦比(0.5):"))(setq bul 0.5))
(setq num(fix(/ len dis)) dis(/ len num) j 1)
(repeat (1- num)
   (setq pts(cons(vlax-curve-getpointatdist pl(* dis j)) pts)
         j(1+ j)
   )
)
(setq lst(list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")
               (cons 90(length pts)) '(70 . 1)
         )
)
(if(setq e(makepl))(entdel pl) )
)
(while j
      (initget "F B")
      (setq j(getkword"\n 反向(F)||弓半弦比(B)【结束】: "))
      (cond ((= j "F")
               (entdel e)
               (setq fx(* -1 fx))
               (setq e(makepl))
            )
            ((= j "B")
               (if(setq bul1(getreal "\n弓半弦比(0.5):"))
                  (progn(setq bul bul1)(entdel e)(setq e(makepl)))
               )
            )
            (t (setq j nil))
         )
)
  )(command "undo""end")(princ)
)
[/php]
不闭合也行，不过就是比较怪异

支持圆,多义线spline等

cy956 · 发表于 2004-9-16 00:34:21

可能有的函数没有你用不了，可以看看写法——还少一些判断

(defun c:yxx (/ )
(mapcar 'setvar '("cmdecho""blipmode") '(0 0))
(setq p1 (getpoint "\n输入第一点: ")
p2 (getcorner p1 "\n输入对角点: ")
lay(getvar "clayer"))
(setq xy(mapcar '- p2 p1)
dx(car xy)dy(cadr xy)
dyx(pri1 getdist p1 "\n输入云线的长度，缺省值约水平方向1/5处:" (/ dx 5.0))
nx(fix (/ dx dyx))dx1(/ dx nx)
ny(fix (/ dy dyx))dy1(/ dy ny)
pb(list p1))
(repeat nx
(setq pb(append pb (list (setq p11(xd p1 dx1 0))))
p1 p11)
)
(repeat ny
(setq pb(append pb (list (setq p11(xd p1 0 dy1))))
p1 p11)
)
(repeat nx
(setq pb(append pb (list (setq p11(xd p1 (- dx1) 0))))
p1 p11)
)
(repeat ny
(setq pb(append pb (list (setq p11(xd p1 0 (- dy1)))))
p1 p11)
)
(#m_pl2 1 0 (/ pi 4.0) pb "0" -1)
(mapcar 'setvar '("cmdecho""blipmode") '(1 1))
(princ)
)
(defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb)
(setq d90 (length pl_list)
pb '()
)
(foreach x pl_list
(progn
(setq pb
(append pb
(list (cons 10 x)
(cons 40 plw)
(cons 41 plw)
(cons 42 pla)
)
)
)
)
)
(setq en000 (append (list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 8 lay_pl)
(cons 100 "AcDbPolyline")
(cons 90 d90)
(cons 70 d70)
)
pb
)
)
(if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
(if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.") )
)
(defun pri1 (a #p0 b c / x)
(princ (strcat b " <"))(princ c)(setq x (a #p0 ">:"))
(if (and x (/= x "")) x c)
)

(defun c:yxx (/ ) 
  (mapcar 'setvar '("cmdecho""blipmode") '(0 0)) 
  (setq p1 (getpoint "\n输入第一点: ") 
        p2 (getcorner p1 "\n输入对角点: ") 
        lay(getvar "clayer")) 
  (setq xy(mapcar '- p2 p1) 
        dx(car xy)dy(cadr xy) 
        dyx(pri1 getdist p1 "\n输入云线的长度，缺省值约水平方向1/5处:" (/ dx 5.0)) 
        nx(fix (/ dx dyx))dx1(/ dx nx) 
        ny(fix (/ dy dyx))dy1(/ dy ny) 
        pb(list p1)) 
  (repeat nx 
    (setq pb(append pb (list (setq p11(xd p1 dx1 0)))) 
          p1 p11) 
  ) 
  (repeat ny 
    (setq pb(append pb (list (setq p11(xd p1 0 dy1)))) 
          p1 p11) 
  ) 
  (repeat nx 
    (setq pb(append pb (list (setq p11(xd p1 (- dx1) 0)))) 
          p1 p11) 
  ) 
  (repeat ny 
    (setq pb(append pb (list (setq p11(xd p1  0 (- dy1))))) 
          p1 p11) 
  ) 
  (#m_pl2 1 0 (/ pi 4.0) pb "0" -1) 
  (mapcar 'setvar '("cmdecho""blipmode") '(1 1)) 
  (princ) 
) 
(defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb) 
  (setq        d90 (length pl_list) 
        pb  '() 
  ) 
  (foreach x pl_list 
    (progn 
      (setq pb 
             (append pb 
                     (list (cons 10 x) 
                           (cons 40 plw) 
                           (cons 41 plw) 
                           (cons 42 pla) 
                     ) 
             ) 
      ) 
    ) 
  ) 
  (setq        en000 (append (list 
                        (cons 0 "LWPOLYLINE") 
                        (cons 100 "AcDbEntity") 
                        (cons 8 lay_pl) 
                        (cons 100 "AcDbPolyline") 
                        (cons 90 d90) 
                        (cons 70 d70) 
                      ) 
                      pb 
              ) 
  ) 
  (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color))))) 
  (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  ) 
) 
(defun pri1 (a #p0 b c / x) 
  (princ (strcat b " <"))(princ c)(setq x (a #p0 ">:")) 
  (if (and x (/= x "")) x c) 
)

lzy9788 · 发表于 2004-9-16 15:19:26

to cy956斑竹，没有pri函数。
Error: no function definition: PRI1

wangge888 · 发表于 2004-9-17 13:15:26

看过楼上的演示才知道云线是怎么一回事

chenseven · 发表于 2004-9-21 23:56:28

谢谢两位斑竹的帮助我用过了。可以达到我的要求，给我的工作带来很大的方便。

梦断江南 · 发表于 2004-9-22 01:28:03

还有个方法就是做成线形

Jerry541 · 发表于 2004-9-22 14:21:31

哇，太好了，又学到了一招。程序不错。

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

[求助] [求助]：关于云线的画法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子