CAD Fórum : Spojení do křivky https://www.cadforum.cz/forum/ Sun, 21 Jun 2026 19:14:32 +0000 Wed, 04 Jul 2007 14:18:08 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=4798 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Spojení do křivky : Tak ta promenna &#034;peditaccept&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23304&title=spojeni-do-krivky#23304 Autor: johny
Předmět: 4798
Zasláno: 04.čvc.2007 v 14:18

Tak ta promenna "peditaccept" je sikovna, kdyby jen o ni clovek vedel :)
Pred casem jsem to taky resil, jeste jsem po tom chtel aby to pospojovalo ikdyz tam jsou male mezery (do 5 cm) a aby slo objekty vybrat pred spustenim prikazu...
 
(defun C:ske( / ss index n Ano tepent) ;spoj "krivky" s mezerou do 0.05
  (command "_select" pause)
  (setq ss (ssget "_p"))
    (setq index 0
   n (sslength ss))
    (repeat n
      (setq typent (cdr (assoc 0 (entget (ssname ss index)))))
       (if (or (equal typent "LINE") (equal typent "ARC"))
  (setq Ano T))
       (setq index (+ 1 index)))
 
  (command "_pedit" "_m" "_p" "")
  (if Ano (command "_y")) ;Kdyz je cara nebo oblouk
  (command "_j" "_j" "_e" "0.05" "")
  (princ)
)
 
Takze ten cyklus se necha nahradit vypnutim te sikovene promenne...
]]> Wed, 04 Jul 2007 14:18:08 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23304&title=spojeni-do-krivky#23304 <![CDATA[Spojení do křivky : Díky moc, je to přesně to co jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23185&title=spojeni-do-krivky#23185 Autor: BenaCZ
Předmět: 4798
Zasláno: 25.čer.2007 v 15:29

Díky moc, je to přesně to co jsem chtěl.]]> Mon, 25 Jun 2007 15:29:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23185&title=spojeni-do-krivky#23185 <![CDATA[Spojení do křivky : Pokud jsem to dobře pochopil,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23184&title=spojeni-do-krivky#23184 Autor: chlebovsky
Předmět: 4798
Zasláno: 25.čer.2007 v 15:24

Pokud jsem to dobře pochopil, tak se Vám jedná o to, že se vám neukončí příkaz editace křivky.
Myslím že když přepíšete ten command tak by to mělo fungovat.
 
(command "_pedit" pause "_j" (ssget) "" "")
 
doporučuji psát i to "p" anglicky "_j" bude to fungovat vždy
Martin.
]]> Mon, 25 Jun 2007 15:24:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23184&title=spojeni-do-krivky#23184 <![CDATA[Spojení do křivky : No já to řeším prozatím PLJOIN,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23179&title=spojeni-do-krivky#23179 Autor: PepaR
Předmět: 4798
Zasláno: 25.čer.2007 v 14:39

No já to řeším prozatím PLJOIN, makro podobného typu jak zamýšlíte Vy by se ale hodilo neboť PLJOIN ve vyšších verzích je trošku nespolehlivé.]]> Mon, 25 Jun 2007 14:39:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23179&title=spojeni-do-krivky#23179 <![CDATA[Spojení do křivky : Mohli byste mi prosím poradit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23169&title=spojeni-do-krivky#23169 Autor: BenaCZ
Předmět: 4798
Zasláno: 25.čer.2007 v 12:24

Mohli byste mi prosím poradit jak zfunkčnit tento lisp? jedná se o zrychlené spojení čar do 1 křivky.

;;; spoji cary do krivky
(defun C:spojitdokrivky     (/ PDACPT)
;;;nastaví peditaccept
(setq PDACPT (getvar "peditaccept"))
(setvar "peditaccept" 1)

;;;vlastní funkce
(command "_pedit" pause "p" pause)
(princ)
;;; obnovuje původní peditaccept
(setvar "peditaccept" PDACPT)
(princ)
)

Lisp funguje, jen nedokážu po spojení čar do křivky ukončit dialog _pedit Díky moc za radu. Bena]]> Mon, 25 Jun 2007 12:24:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4798&PID=23169&title=spojeni-do-krivky#23169