[分享]：动态复制程序

陌生人 · 发表于 2004-3-3 23:39:23

不小心没输入*or/的时候.....

我觉得在实际操作中，中途转换* / 不是很重要的，因为操作中是均分还是阵列应该已经有了想法才做下一步，而改变方向或者阵列个数倒可尽可能灵活些。

wkai · 发表于 2004-3-4 16:37:53

如果你常用sketchup就会很习惯的~

snsj · 发表于 2004-3-4 17:19:40

最初由 wkai 发布
[B]如果你常用sketchup就会很习惯的~ [/B]

老乡，程序不支持图块，能不更改下支持图块的

[PHP]
;;;|增强拷贝
(defun c:dco (/ getpt getpt1 ss ptx pty db n x y gtin)
(setq getpt1(acet-ss-drag-move (setq ss (ssget))(setq getpt (getpoint "\n&点取基点:"))1))
(setq ptx (-(car getpt1)(car getpt))
pty (-(cadr getpt1)(cadr getpt))y 0)
(vl-cmdf ".copy" ss "" getpt getpt1)
(while (setq gtin (-(getint "\n重复次数:")1))
(vl-cmdf ".undo" "e")(if(/= y 0)(vl-cmdf ".u"))
(setq n 1 x 0 db nil)(if(/= y 0)(vl-cmdf ".u"))(vl-cmdf ".undo" "be")
(repeat gtin
(setq db (cons(list (+(* n ptx)(car getpt1))(+(* n pty)(cadr getpt1)) 0.0) db))
(setq n (1+ n))
)
(repeat (length db)
(vl-cmdf ".copy" ss "" getpt (nth x (reverse db)))
(setq x (1+ x))
)(vl-cmdf ".undo" "e")(vl-cmdf ".undo" "be")
(setq y (1+ y))
)(princ)
)
[/php]

我以前写的（利用了ET扩展的动态模拟），修改了下增加了循环，上面是我的方法，共同进步
致命的缺点是：如果在循环输入数字的时候进行了屏幕的移动、缩放等操作后会再次输入数据会返回到最初的屏幕操作

陌生人 · 发表于 2004-3-4 22:36:30

第一问题：我测试对块有效啊
第二个问题：不用undo，像前面的程序那样用 erase

wkai · 发表于 2004-3-5 08:48:07

最初由 snsj 发布
[B]
老乡，程序不支持图块，能不更改下支持图块的
[/B]

老乡好：）
这个怎么会不支持图块？
是通过标准的copy命令完成复制的呀~

snsj · 发表于 2004-3-5 10:36:52

查了下，我是在理正环境下测试，用的是带属性的块，不带属性的块没问题，对带属性的块有问题，老乡，你测试下

wkai · 发表于 2004-3-5 11:13:24

带属性的块我也试了,没问题的
你发个图给我试试~

陌生人 · 发表于 2004-3-5 13:56:41

最初由 wkai 发布
[B]

老乡好：）
这个怎么会不支持图块？
是通过标准的copy命令完成复制的呀~ [/B]

哈哈，你们是老乡好：）啊？！（倒。。。。）

snsj · 发表于 2004-3-5 14:15:19

晕倒～～

taner · 发表于 2004-3-5 18:17:36

这是我收集后修改了一下,请问上面的程序和以下有区别吗?
(defun C:AAR (/ ss ang bp cnt dist d a)
  (cond
((setq ss (ssget))
   (initget 1)
   (setq bp (getpoint "\nbasepoint£º "))
   (initget 1)
   (setq ang
      (getangle bp "\ndirection£º ")
   )
   (initget 7)
   (setq dist
      (getdist "\ndistance between objects£º ")
   )
   (initget 7)
   (setq cnt (getint "\nnumber of objects£º "))
   (setq d 0.0)
   (setq a (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (command "_.undo" "_g" "_.copy" ss "" "_m" bp)
   (repeat (1- cnt)
   (command
   (polar bp ang (setq d (+ d dist)))
   )
   )
   (command "" "_.undo" "_e")
)
  )
  (setvar "cmdecho" a)
  (princ)
)

(defun C:AAaR (/ ss ang bp cnt dist d a p1 p2)
  (cond
((setq ss (ssget))
   (initget 1)
   (setq bp (getpoint "\nbase point£º "))
   (initget 1)
   (setq ang
      (getangle bp "\ndirection£º ")
   )
   (initget 7)
   (setq dist
      (getdist "\ndistance between objects£º ")
   )
   (initget 7)
   (setq p1 (getpoint "\nFirst point:"))
   (initget 7)
   (setq p2 (getpoint p1 "\nEnd Point:"))
   (initget 7)
   (setq cnt (1+ (fix (/ (distance p1 p2) dist))))
   (setq d 0.0)
   (setq a (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (command "_.undo" "_g" "_.copy" ss "" "_m" bp)
   (repeat (1- cnt)
   (command
   (polar bp ang (setq d (+ d dist)))
   )
   )
   (command "" "_.undo" "_e")
)
  )
  (setvar "cmdecho" a)
  (princ)
)

陌生人 · 发表于 2004-3-5 21:10:40

你这个不是”动态“的吧？：）

aeo · 发表于 2004-3-7 11:02:39

最初由 wkai 发布
[B]带属性的块我也试了,没问题的
你发个图给我试试~ [/B]

带属性的块的块应该不行.

我前面说的:致命在(setq e(entlast)) ,不是真正的最后

还有老的pl线也不行

我开始也想到undo了，但zoom后就没办法不回到原来的视图，况且想在滚轮。
但这种拷贝东西不会太多，erase也就没问题.

ywx0576 · 发表于 2004-3-7 19:44:48

我也试了，带属性的块确实不行。
不过，已经很好用了，多谢!

陌生人 · 发表于 2004-3-7 21:23:37

奇怪，在我电脑上，带属性的快可以。
你们不行的能发一张图上来测试么？

罗趣 · 发表于 2004-3-7 23:48:47

好程序。想问的是 “non" 在程序中代表什么意思？

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