flytoday 发表于 2012-6-6 08:48:43

院长这个好好。。。麻烦院长给个代码嘛。。

flytoday 发表于 2012-6-6 11:36:28

原来院长这个为固定值滴没用呵呵

我想要滴是A，C，L为固定值，但是B可以为固定值与最近值

xshrimp 发表于 2012-6-6 14:39:29

本帖最后由 xshrimp 于 2012-6-6 14:46 编辑

我也来一个单文件.基本功能完成.什么向上向下的没有处理.先看看吧.
命令:test


xshrimp 发表于 2012-6-6 14:43:51

本帖最后由 xshrimp 于 2012-6-6 14:45 编辑

核心函数其实很简单.只要几句就可以了.
根据下面的不用窗口就可以绘制栏杆了.
(defun gps->entmake-Line (p1 p2)
(entmake(list (cons 0 "LINE")(cons 10 p1)(cons 11 p2)))
)
(defun entmakelg(dis /pt)
(setq pt (polar spt ang dis))(gps->entmake-Line pt (polar pt (+ (* 0.5 pi) ang) L))
)
   (setq A 25.0 B 110 C 50 L 300)
    (if (setq ents (entsel))
      (progn
      (setq ent (car ents)entlst (entget ent) )      
      (setq spt(cdr(assoc 10 entlst)) ept(cdr(assoc 11 entlst)))
      (setq ang (angle spt ept)dis (distance ept spt))
      (entmakelg 0)
      (entmakelg (setq adis c))
      (setq n (/ (- dis c )(+ a b)))
      (repeat (fix n)
          (entmakelg (setq adis (+ b adis)))
          (entmakelg (setq adis (+ a adis)))
      )
      )
   )

flytoday 发表于 2012-6-6 14:44:58

老大命令是什么啊。。。

flytoday 发表于 2012-6-6 14:49:39

这个用不近似值哦。。。不信您试下，总长4米头尾两根为0，中间的A均为近似110，B固定值为30，这样等分不了

xshrimp 发表于 2012-6-6 14:57:22

没有理解这个向上.向下.近似值到底是什么意思.
现在只有固定值可用.

flytoday 发表于 2012-6-6 15:07:41

请大师改改谢谢~~~~~~~~~~~~~~~~~~~~~~~`

xshrimp 发表于 2012-6-6 15:33:43

本帖最后由 xshrimp 于 2012-6-6 15:38 编辑

那C值有什么意义呢.?多余的自动两边均分?

A B C?这几个参数都要近似值??

flytoday 发表于 2012-6-6 16:28:01

按您那个，只要A为近似值就行了
页: 1 [2] 3 4
查看完整版本: 求修改下等分源码谢谢